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EXPERIENCIA Y PRACTICAS EN LOGO 


EMOS utilizado en numero- 
sas ocasiones una de las ór- 
denes más potentes de las 
que posee el Logo. Se trata 
de la orden REPITE. Con 
ella conseguimos evitar el 
tener que teclear las mis- 
mas cosas un número deter- 
minado de veces. Vamos a investigar un poco 
más sobre ella. 

Con la orden REPITE hemos consegui- 
do hacer cuadrados, triángulos, circunferen- 
cias y numerosas figuras geométricas más. En 
todas ellas lo que hacemos es repetir «n» ve- 
ces la misma orden o grupos de órdenes. 

Al igual que ocurre con el resto de las 
órdenes que existen en el Logo, REPITE tiene 
una sintaxis, la cual hay que respetar y cum- 
plir obligatoriamente, En el caso de Repite es 
la siguiente: 

REPITE n [Lista de órdenes] 

Observa que hay que dejar un espacio 
entre la palabra REPITE y «n» y lo que se va a 
repetir tiene que ir encerrado entre corche- 
tes. 

Hay versiones de Logo que permiten el 
omitir el corchete final y, o bien lo pone auto- 
máticamente, o bien lo acepta como si existie- 
se. Tampoco es necesario en algunas versio- 
nes el tener que dejar un espacio entre «n» y 
el primer corchete. 

Por tanto, la orden REPITE podría tam- 
bién escribirse de la siguiente manera y sería 
igualmente válida: 

REPITE n[Lista de órdenes] 

Si el valor de «n» es negativo, se produ- 
ce un error. 



Si el valor de «n» es decimal, éste es re- 
dondeado. 

El valor de «n» puede oscilar desde va- 
lores como 0 hasta valores tan elevados como 
32767. 

Por ejemplo, si tecleas la orden: 

REPITE 200 [REPITE 4 [AV 40 GD 90]] 

Obtenemos 200 cuadrados pintados uno 
encima del otro. 

La lista de órdenes que tiene que acom- 
pañar a REPITE puede ser tan larga como se 
quiera, pero por lo menos tiene que contener 
una orden. 

Puede constituir esta lista cualquiera 
de las órdenes que se utilizan en el Logo. Por 
tanto, es lógico pensar que dentro de una or- 
den REPITE puede ir perfectamente otra or- 
den REPITE. Su estructura quedaría de la si- 
guiente forma: 


REPITE n [REPITE n [lista de órdenes] 
lista de órdenes] 

Las diferentes órdenes REPITE se van 
ejecutando de dentro para fuera, es decir, del 
REPITE más interno al más externo, 

Si, por ejemplo, quisiéramos realizar el 
siguiente dibujo: 



ññúú 



Fig . I 


Con el Logo puedo dibujar en colores . 
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EXPERIENCIAS Y PRACTICAS EN LOGO 


Lo único que hay que hacer es dar las 
órdenes adecuadas para que pinte una sola 
vez e ir variando la situación de comienzo de 
donde queremos que nos lo pinte de nuevo. 

Las órdenes que lo realizan son las si- 


guientes: 

INICIALIZACION 

? PM 
? BP 


? SL 


? OT 

CENTRANDO DIBUJO 


? GI 90 

? AV 60 
? BL 

DIBUJANDO 


? REPITE 4 [REPITE 4 [AV 40 GI 90] REPITE 2 
[GD 60 AV 40 GI 180] GD 60 SL AV 100 GI 180 

BL] 

Una vez que inicializamos el estado de 
la pantalla y de la Tortuga y centramos el di- 
bujo, damos las órdenes que dibujan la figura 
que se tiene que repetir 4 veces, pero sólo 
hace falta teclearlas una vez. Cuando la dibu- 
ja la primera vez, le ordenamos que se sitúe 
en donde queremos que lo dibuje la segunda, 
y así sucesivamente. El REPITE se encarga de 
hacerlo las veces que deseemos. 

Observa estos dos dibujos: 




Date cuenta que el segundo es la parte 
del dibujo de un cuadrado que le falta al pri- 
mero. 

Teclea e introduce las siguientes órde- 
nes: 

INICIALIZANDO 

? PM 
? SL 
? BP 
? OT 

PRIMER DIBUJO 

? REPITE 4 [BL AV 20 SL AV 20 BL AV 20 GD 90] 

SEGUNDO DIBUJO 
? IL 

REPITE 4 [AV 60 GD 90] 

En el primer dibujo realizamos un cua- 
drado, pero dejamos en cada lado un espacio 
sin pintar. 

En el segundo, realizamos un cuadrado 
completo y de igual tamaño que el anterior y 
sobre él. 

¿Qué ha ocurrido? Al dar la orden IL, 
en el segundo dibujo, ha empezado a dibujar- 
se el cuadrado, pero al pasar por encima de 
algo que está pintado, lo borra, y pinta donde 
se encuentra que no hay nada dibujado. 

En definitiva, lo que ocurre es que se in- 
vierte el dibujo. Esto se consigue con la orden 
IL (Invierte lápiz). 

Cambia en las órdenes anteriores el úl- 
timo bloque por; 

SEGUNDO DIBUJO 
? IL 

? REPITE 20 [REPITE 4 (AV 60 GD 90]] 

Hemos obtenido un curioso efecto. Se 
crea como un circuito cerrado de los lados gi- 
rando hacia una misma dirección. 


El teclado 

Dependiendo del ordenador que se posea, 
existen un cierto número de teclas que realizan una 
función determinada. En este caso vamos a ver algu- 
nas de las teclas que tienen funciones específicas 
dentro del Logo y que nos son de gran ayuda a la 
hora de trabajar. 


r. 


órdenes Logo se llamen primitiva 
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Si posees un ordenador MSX: 

• Las teclas de función Fl-6, F2-7 y F3-8 nos 
permiten pasar a los modos de pantalla, Texto, Mix- 
ta y Gráficos, respectivamente, con sólo presionar- 
las, Así nos evitamos el tener que teclear la orden 
correspondiente para pasar a cada modo de panta- 
lla. 

• Si presionamos a la vez las teclas CTRL 
(control) e Y, obtendremos la última línea que hemos 
escrito. 

• Si presionamos a la vez las teclas CTRL y 
STOP, interrumpimos la ejecución de lo que se esté 
realizando en ese momento. 

Si posees un SPECTRUM: 

• Si pulsas las teclas CAPS y BSEAK/SPACE 
simultáneamente, obtenemos una interrupción. 

• Con E MODE R obtenemos la última línea 
memorizada a partir de la posición del cursor. 

• Con SYS Y y SYS V obtenemos, respectiva- 
mente, los corchetes, (y], 

Si posees un compatible PC; 

• Si presionas simultáneamente CTRL y NUM- 
LOCK, se interrumpe la ejecución, pudiéndose reem- 
prender pulsando cualquier otra tecla. 

• Las teclas F3 y F4 marcan el principio y el 
final de un bloque. 

• La tecla F5 copia el bloque marcado ante- 
riormente. 

• Si presionamos simultáneamente CTRL, ALT 
y [, obtenemos el corchete abierto. 

• Si presionamos simultáneamente CTRL, ALT 
y ], obtenemos el corchete cenado. 

¡(ATENCION!! En algunos PC hay que escribir 
las órdenes con letras mayúsculas. 

Las próximas órdenes nos dibujan un ta- 
blero de ajedrez; 

INICIALIZANDO 

? PM 
? SL 
? BP 
? OT 

CENTRANDO DIBUJO 

? GI 90 AV 64 
? GD 90 RE 50 
? BL 

? PONCL 1 


DIBUJO TABLERO 

? REPITE 4 [AV 128 GD 90] GD 90 

CUADRICULADO DEL TABLERO 

? REPITE 2 [REPITE 8 [AV 16 GI 90 AV 128 RE 
128 GD 90] GI; 90 

COLOCACION 
PARA PINTAR CUADRADOS 

? GD 90 SL RE 8 GI 90 AV 8 

PINTO CUADRADOS NEGROS 

? REPITE '4 [REPITE 4 [BL RELLENA SL AV 32] 
RE 160 GI 90 AV 32 GD 90 AV 32] GD 90 AV 

16 GI 90 AV 16 

? REPITE 4 [REPITE 4 [BL RELLENA SL AV 32] 
RE 160 GD 90 AV 32 GI 90 AV 32] 

PINTO CUADRADOS BLANCOS 

? PONFONDO 15 
? PONCL 4 
? RELLENA 

Bueno, ya tienes io principal para jugar 
al ajedrez. Vamos a explicar un poco cómo lo 
hemos realizado. 

Lo primero que hacemos, como en to- 
dos los demás programas, es inicializar la pan- 
talla como el estado de la Tortuga. Luego cen- 
tramos el dibujo, 

Comenzamos a dibujar; un simple cua- 
drado me determina el tamaño del tablero. A 
continuación cuadriculamos el tablero para 
obtener los casilleros de un tablero de aje- 
drez, Esto lo conseguimos trazando 8 líneas ho- 
rizontales y 8 verticales. Ya sólo nos queda 
pintar los cuadrados que van en negro y los 
que van en blanco. 

Los negros los dibujamos rellenando ca 
silleros salteados del color que hemos estable- 
cido con la orden PONCL, en este caso el ne- 
gro, ya que hemos dado valor 1 en la orden 
PONCL. 

Los blancos los obtenemos simplemen- 
te dando un color a todo el fondo, En este caso 
el blanco. Lo realizamos con la orden PON- 
FONDO 15. 

No te preocupes si no entiendes las 
nuevas órdenes que hemos utilizado en este 


La orden « REPITE » me evita tener que teclear la 
misma orden un número determinado de veces . 



EXPERIENCIAS Y PRACTICAS EN LOGO 


dibujo, Ya las estudiaremos con más deteni- 
miento. 


Veamos ahora alguna de las órdenes que ya 
utilizamos con bastante frecuencia. Son las órdenes 
con las que podemos decir a la Tortuga que pinte o 
que no pinte. 

Con la orden BAJALAP1Z (BL) activamos el lá- 
piz de la Tortuga, y todo desplazamiento que realice 
desde este momento lo hará dejando un rastro tras 
de sí. El lápiz estará activado hasta que le demos la 
orden oportuna para desactivarlo, y no dejará de 
pintar en sus desplazamientos hasta dicho momento. 

La orden que desactiva el lápi 2 es SUBELA- 
PIZ (SL). Desde el momento en que se dé esta orden, 
todo desplazamiento de la Tortuga lo hará sin dejar 
un rastro tras de sí. 

El lápiz estará desactivado hasta que lo volva- 
mos a activar, lo que conseguimos con la orden BL, 


Aquí tienes un curioso ejemplo de cómo 
poder tener más de una Tortuga a la vez y con- 
seguir que cada una de ellas vaya por su lado, 

INICIALIZANDO 


? PM 
? SL 
? BP 
? OT 

DETERMINO EL NUMERO 
DE TORTUGAS 

? ACTIVA [0 12 3] 

COLOCO CADA UNA EN UN LUGAR 


? ACTIVA 
? ACTIVA 


0 

T 


GI 45 AV 80 
GD 45 AV 80 


? ACTIVA [2] GI 135 AV 40 
? ACTIVA [3] GD 135 AV 40 

MUEVO LAS CUATRO 

? ACTIVA [0 12 3] MT 
? REPITE 100 [GD 10 AV 5 GD 5 AV 5 GI 3 A’\ 

5] 


Determino el número de tortugas con la 
orden ACTIVA, en este caso cuatro, la 0, la 1, 
la 2 y la 3. 


Luego las coloco cada una en un punto 
determinado de la pantalla. Una vez dispersa- 
das las hacemos visibles y les ordenamos que 
empiecen a moverse, 

Si quieres observar la trayectoria de 
sus movimientos cambia la orden SL por BL. 


I' 


Cómo cargar correctamente el Logo 

Si posees un ordenador M5X: 

- Con el ordenador apagado, introduce el 
cartucho de Logo en la ranura que tiene destinado 
para dicho fin. 

— Enciende el ordenador. 

— El Logo se cargará automáticamente y se 
autoejecutará. 


Si posees un SPECTRUM: 

— Coloca la cinta cassette en la lectora-gra- 
badora de cintas. 

— Rebobina la cinta hasta el principio. 

— Teclea: LOAD ““ e introdúcelo. 

— Conecta la lacla PLAY de la lectora-gra- 
badora. 

— El Logo se empezará a cargar y se ejecuta- 
rá automáticamente cuando termine de cargarse. 

— Si ves que no se carga, ajusta el volumen y 
repite la operación anterior. 

Si posees un compatible PC: 

— Introduce el disqquete del Sistema Opera- 
tivo en la unidad de disquete A. 

— Carga el Sistema Operativo de la forma que 
lo explica el Manual del DOS de tu ordenador. 

- Una vez cargado el Sistema Operativo, in- 
troduce el disquete del LOGO en la unidad A. 

— Consulta en el Manual que acompaña a tu 
versión del Logo el nombre que hay que poner a la 
hora de cargarlo y escribe: 

A > (nombre) 

- EL Logo se cargará y se ejecutará au- 
tomáticamente. 


Con la orden « RELLENA » consigo llenar un 
espacio en un tiempo mínimo . 
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Cuadro Resumen 


3, ¿Qué dibujo se obtiene si invertimos ei lá- 
piz de la Tortuga sobre este dibujo? 


INVIERTELAPIZ (IL) 

Deja el lápiz de la Tortuga en un es- 
tado en el cual si pasa por encima de algo 
dibujado lo borra y dibuja si no hay nada di- 
bujado por donde pasa. 

PONCL n 

Pone el color que determina n al lá- 
piz de la Tortuga. El valor de n puede osci- 
lar desde 0 a 15, 

PONFONDO n 

Pone del color que determina n, al 
fondo de toda la pantalla. El valor de n pue- 
de oscilar desde 0 a 15. 

RELLENA 

Llena del color en que se encuentre 
el lápiz de la Tortuga un espacio cerrado, 
el cual contiene a la Tortuga en su interior. 

ACTIVA [ni n2 n3...} 

Determina el número de Tortugas 
que se quiere tener. Cada valor de n acti- 
vará a una Tortuga en concreto, que será 
reconocida por dicho valor de n. 


Ejercicios 

1 . Cómo abreviarías ¡as siguientes órdenes: 

- GD 90 AV 20 GD 90 AV 20 GD 90 AV 
20 

- AV 10 GD 45 AV 10 GD 45 GI 90 RE 
60 AV 10 GD 45 AV 10 GD 45 

- REPITE 4 [AV 20 GI 20 GI 20] 



R g. s. 

4 . Haz el siguiente dibujo: 



5. ¿Son correctas las siguientes órdenes? 

- REPITE 399 [RE 500] 

- IL 5 

- REPITE 10 [AV 35] 

- SUBELAPIZ AV 2 IL 

- REPITE 20 [AV 4 GD 10] 


2, Dibuja con la orden REPITE el siguiente di- 
bujo: 



ñg. 4 


Solución a los ejercicios 


- REPITE 3[GD 90 AV 20] 

- REPITE 2[ REPITE 2[AV 10 GD 45] GI 90 
RE 60] 

- REPITE 4[AV 20 GI 40] 

2. INICIALIZACION 

? PM 
? SL 
? BP 
? OT 


En Logo voy a poder crear mis propias órdenes. 
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EXPERIENCIAS Y PRACTICAS EN iOGO 



CENTRANDO DIBUJO 

? GI 90 AV 90 
? GD 90 RE 20 
? BL 

DIBUJO POSTES 

? REPITE 5[AV 60 GD 90 AV 15 GD 90 AV 
60 GD 90 AV 15 SL RE 35 GD 90 BL] 

COLOCACION PARA TRAVESANOS 

? SL AV 10 
? GI 90 
? BL 


DIBUJO TRAVESAÑOS 

? REPITE 2[AV 190 GD 90 A V 10 GD 90 AV 
190 GD 90 AV 10 SL RE 30 GD 90 BL] 

3 . Este es el dibujo que se obtiene: 



ñg. 7 


4 . INICIALIZACION 

? PM 
? SL 


? BP 
? MT 

CENTRANDO DIBUJO 

? GI 90 AV 35 
? GD 90 RE 40 
? BL 

1 , a PEANA 

? AV 10 GD 90 
? AV 70 GD 90 
? AV 10 GD 90 
? AV 70 

2. a PEANA 

? SL 

? RE 5 GD 90 AV 10 
? BL 

? AV 5 GD 90 
? AV 60 GD 90 
? AV 5 

TORREONES 

? RE 5 GD 90 AV 10 GD 90 AV 70 
? GD 90 AV 15 GI 90 AV 10 
? REPITE 3JREPITE 3 [AV 10 GI 90] RE 10 
GI 90] 

? REPITE 2[AV 10 GI 90] 

? AV 20 GI 90 AV 15 
? GD 90 AV 70 

5 . REPITE 399[RE 500]: Correcta 

— IL 5: Incorrecta, IL no admite ningún 
valor. 

- REPITE 10[AV 35]: Correcta 

- SUBELAPIZ AV 2 IL: Correcta 

- REPITE-20JAV 4 GD 10]: Incorrecta, 
REPITE no admite valores negativos 


m La orden RELLENA es igual a la orden 
FILL en otros lenguajes . 

■ Existen diferentes teclas que me ayudan a 
programar más fácilmente y me evitan 
tener que perder tiempo . 
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MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


Los primeros movimientos 


verla por la pantalla. Podemos moverla de di- 
ferentes formas; 



L movimiento es una de las 
características más impor- 
tantes que tienen todos los 
juegos comerciales. En la 
pantalla de nuestro ordena- 
dor podemos ver cómo se 
mueve desde una pequeña 
pelota hasta un marciano, 
pasando por un coche o un perro que corre 
detrás de un gato. Para realizar el movimiento 
de todos estos personajes se utilizan las mis- 
mas técnicas y el mismo principio básico que 
para la creación de una película de dibujos 
animados. 

Dicho principio básico consiste en dibu- 
jar el personaje en una determinada posición 
y fotograma a fotograma, ir variando la posi- 
ción muy poquito a poco, Haciendo esto, de 
una forma repetitiva y continua, se consigue 
la sensación de que la figura se mueve. 

Este mismo principio se utiliza para la 
creación de animación en los ordenadores. 
Primero se imprimiría la figura que se va a mo- 
ver, Se borraría. Se volvería a dibujar en una 
posición próxima a la anterior. Se volvería a 
borrar. Se volvería a imprimir y así suce- 
sivamente. 

Por supuesto, la figura a mover puede 
estar compuesta de un solo carácter, una pe- 
lota, por ejemplo, o de varios, en el caso de un 
perro que corre. 

Una vez visto esto vamos a ver cómo po- 
demos hacer que un objeto se mueva por la 
pantalla. 


■ Movimiento de un carácter 

Imaginemos que la letra “O” mayúscula 
es una pequeña pelota y que queremos mo- 


1. De izquierda a derecha, o de dere- 
cha a izquierda, en línea recta. 

2. De arriba a abajo, o de abajo a arri- 
ba, en línea recta, 

3. En diagonal con distintos ángulos 
de inclinación. 

4. En círculo o haciendo un movimien- 
to circular. 



Fíg. i- Tipos de movimientos posibles. 


Analicemos todos estos casos uno a uno. 

■ Movimiento de derecha a izquierda 
en línea recta 

Este es el ejemplo más sencillo. Imagi- 
nemos que queremos mover un carácter por 
la pantalla de derecha a izquierda. Este carác- 
ter podría ser un punto (.), por ejemplo. Un 
programa que podríamos utilizar sería el nú- 
mero 1. Introdúcelo en tu ordenador, y ejecú- 
talo, antes de seguir leyendo, 

p 
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MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


10 rem 

20 REM t MOVIMIENTO DE DERECHA A IZQUIERDA * 

30 REM t EN EL MSX, IBM Y AMSTRAD * 

40 REM 
50 REM 

60 LET Y=10 

70 FOR 1=40 TO 1 STEP -1 
00 CLE 

70 LOCATE Y , 1 1 REM < — EN EL MSX CAMBIARLO PORi LOCATE I,Y 
100 PRINT 
110 NEXT I 
120 LET Y=Y+l 
130 IF Y=20 THEM LET Y«I 
140 GOTO 70 


Los usuarios del Comraodore tendrán 
que realizar las siguientes modificaciones: 

Línea 70 FOR 1=39 TO O STEP -1 
Línea 80 PRINT ,l <SHIFT-HOME>" 

Línea 90 GOSUB 9900 

Para que funcione correctamente habrá 
que unir este programa a la subrutina LOCA- 
TE PARA COMMODORE que se dio en el pri- 
mer tomo. 

Para el Spectrum habrá que hacer los 
siguientes cambios: 

Línea 70 FOR 1=32 TO O STEP -1 

Línea 90 PRINT AT I.X; 

Una vez ejecutado veréis que el peque- 
ño puntito se mueve de derecha a izquierda 
en la pantalla. Si os fijáis, podréis comprobar 
que cuando llega al final de una línea apare- 
ce al principio de la siguiente. Cuando el pun- 
tito llega a la última línea vuelve a aparecer 
en la primera. 

Aunque el programa funcione, no se 
puede decir que esté muy bien realizado. El 
hecho de utilizar el comando CLS para borrar 
el puntito hace que el programa sea lento y 
malo. Imagínate que dicho puntito fuese una 


estrella que se mueve por el cielo. Si el cielo 
está plagado de estrellas y borramos la pan- 
talla tendremos que volver a dibujar las estre- 
llas cada vez que movemos nuestra estrella fu- 
gaz, Por tanto, es mejor borrar sólo la estrella 
antes de ponerla en la siguiente posición. 



Fig. 2. Si usamos el comando CLS para borrar el punto , la pan- 
talla parpadeará y hara un efecto muy poco agradable. 

Si introducimos el programa número 2 
veremos que el movimiento es mucho más 
agradable y suave, y que no se borran las de- 
más estrellas. 


10 REM tft*ftttttt*ttf**f»M*t*tt«*t*t***f*rM****tM 
20 REM * MOVIMIENTO HORIZONTAL DÉ UNA ESTRELLA FUGAZ * 
30 REM ********************************************* 

40 REM 

50 REM *»*¡ DIBUJO DEL FIRMAMENTO *** 

60 REM 
65 CLS 

70 FOR 1=1 TO 50 


QO 

LET X=INTÍ39*RND) 

90 

LET Y=INTÍ20*RND) 

100 

LOCATE Y,X 

110 

PRINT ,, » lt 


120 NEXT I 


1 30 

REM «t* 

MOVIMIENTO 

DE LA 

ESTRELLÉ 

* FUGAZ *** 










140 

130 

REM 

LET Y- 

-10 

| 























160 FOR 1=39 TP 1 STEP -1 
170 LOCATE Y f I+l 
ISO PRINT " 

190 LOCATE Y t I 
200 PRINT W . M 
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210 FOR J=1 TO 100 

220 NEXT J 

230 NEXT I 
240 REM 

230 REM *•* DESAPARECE LA ESTRELLA FUGAZ »*« 

260 REM 

270 LOCATE V, 1 

2B0 PRINT “ “ 

290 END 


Las variaciones que hay que hacerle al 
programa, dependiendo del ordenador, son 
las que se dan a continuación: 

COMMODORE 

Línea 65 PRINT ,, <SHIFT-HOME>" 

Línea 100 GOSUB 9900 
Línea 170 LET X=I+1:G0SUB 9900 
Línea 190 LET X-I: GOSUB 9900 
Línea 270 LET X-I: GOSUB 9900 

Para ejecutar este programa, y todos los 
demás programas de este tomo, es necesario 
unirlos a la rutina ‘LOCATE PARA COMMO- 
DORE' que se dio en el tomo 1. 

SPECTRUM 

Línea 80 LET X=INT(3 TRND) 

Línea 100 PRINT AT Y.X; 

Línea 160 FOR 1-1 30 TO 1 STEP -1 
Línea 170 PRINT AT Y.I+l; 

Línea 190 PRINT AT Y,I; 

Línea 270 PRINT AT Y, 1 ; 

Línea 290 STOP 

MSX 

Línea 80 LET X=INT(38*RND(1)) 

Línea 90 LET Y =INT(20’RND( 1 )) 

También hay que cambiar de orden los 
argumentos de todas las sentencias LOCATE. 
Si, por ejemplo, aparece en el listado: LOCA- 
TE Y,X; nosotros tendremos que poner: LOCA- 
TE X,Y. 

AMSTRAD 

Línea 160 FOR I- 38 TO 1 STEP -1 

Para el IBM no hace falta realizar nin- 
gún cambio, pero se recomienda que la pan- 
talla del ordenador se encuentre en el modo 
de 40 columnas por línea (esto también vale 
para el Amstrad y MSX). Recuerda que esto 
se hace utilizando la sentencia WIDTH. 

Como puedes ver, si ejecutas el progra- 
ma, la estrella fugaz aparece por la derecha 
de la pantalla, se mueve hacia la izquierda y 
desaparece al tocar el borde izquierdo, Sí dio 


la casualidad de que en la línea en la que se 
mueve la estrella fugaz había otra estrella, ésta 
desaparecerá. Este programa no mira si, en el 
camino de 3a estrella, hay alguna otra para no 
borrarla. Realizar esto es algo más complica- 
do que lo que hemos visto hasta ahora, pero lo 
iremos viendo en tomos sucesivos. 



Fig. 5 , La forma de dibujar una estrella fugas, como ¡a de Be- 
lén, que se mueva por la pantalla apareceré en tomos sucesivos 

El funcionamiento del programa es el 
siguiente: 

Entre las líneas 70 y 120 se imprimen 50 
estrellas en toda la pantalla de forma aleato- 
ria. Esto se consigue con el uso de la función 
RND. RND nos devuelve un valor entre 0 y 1. 
Dicho valor, al multiplicarlo por un cierto nú- 
mero (39 ó 20, según el caso), se convierte en 
un número entre 0 y 38 (si multiplicamos por 
39) o entre 0 y 19 (al multiplicarlo por 20). Cada 
par de valores es utilizado para imprimir, en 
una cierta columna de cierta línea, un punto 
que hará las funciones de una estrella, 

Entre las líneas 150 y 220 hacemos que 
nuestra estrella fugaz se mueva por la panta- 
lla. La forma de hacerlo, analizando línea a lí- 
nea, es la siguiente: 

Línea 150. En esta línea asignamos a la 
variable Y el valor de la fila por donde se mo- 
verá la estrella, 

Línea 160. Aquí empieza un bucle que 
nos va diciendo la columna en la que se colo- 
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cará la estrella. Como el movimiento es de de- 
recha a izquierda el bucle va de 39 (30 en el 
caso del Spectrum) hasta 1, Por ello, el incre- 
mento (STEP) es negativo y va de -1 en -1. 

Líneas 170 y 180. Se borra lo que hubie- 
se en la columna anterior a la que nos encon- 
tramos ahora, En la primera vuelta del bucle, 
cuando 1 = 39, esto no tiene ningún efecto, 
Pero, a partir de la segunda vuelta, como la es- 
trella se encuentra impresa en la columna 39 
e 1 es igual a 38, borrará la estrella fugaz. 

Líneas 190 y 200. Se imprime en la co- 
lumna I de la fila Y un punto (.). 

Líneas 210 y 220. Se realiza un bucle 
en vacío que hace de retardo entre impresión 
e impresión, Si se quiere que la estrella se 
mueva más deprisa (o más despacio) sólo hay 
que variar la longitud del bucle (el número 100 
que aparece detrás de la palabra TO). Cuanto 
mayor sea dicha longitud, mayor será el tiem- 
po de retardo. 

Línea 230. Termina el bucle principal. 
Se repite la misma operación una y otra vez 
hasta que I alcanza el valor de 1 , 

Una vez que la estrella está en la colum- 
na número uno se borra (líneas 270 y 280) y se 
termina el programa. 

Movimiento de izquierda a derecha 
en línea recta 

Variar el programa anterior para que el 
movimiento sea de izquierda a derecha, en 
vez de derecha a izquierda, es muy sencillo. 
Sólo tenemos que variar unas cuantas líneas: 

Línea 1 60 FOR 1=2 TO 40 
Línea 170 LOCATE Y,I-1 
Línea 180 PRINT " " 

Línea 190 LOCATE Y,I 
Línea 200 PRINT 
Línea 270 LOCATE Y, 40 

Los usuarios del MSX, Commodore y 
Spectrum tienen que hacer las modificaciones 
pertinentes tal y como se dieron un poco más 
arriba. 

Estas modificaciones para hacer que el 
movimiento sea de izquierda a derecha son un 
poco rupestres y se pueden mejorar con el fin 
de ahorrar memoria. La forma sería: 

Línea 160 FOR 1=1 TO 39 
Línea 170 LOCATE Y,I 
Línea 180 PRINT V 

borrando las líneas 190 y 200. 


La forma de trabajar es muy parecida a 
la que hemos visto anteriormente, pero, como 
el incremento va de uno en uno, el valor de I 
va aumentando en vez de disminuir. Gracias 
a esto conseguimos que el movimiento sea de 
izquierda a derecha. 

Movimiento de abajo a arriba 
en línea recta 

El movimiento de un carácter de abajo 
hacia arriba por la pantalla es muy parecido a 
lo que ya hemos visto. La diferencia entre los 
movimientos horizontales y los verticales con- 
siste en que, mientras en el horizontal lo que 
varía es la columna, en el vertical va variando 
la fila. El programa número 3 nos muestra un 
ejemplo de esto. 


10 REM ************************************** 

20 REM t MOVIMIENTO DE UNA ’Q’ A LO LARDO * 
30 REM * DE UNA CARRETERA DE ABAJO A ARRIBA * 
40 REM ************************************** 

50 REM 
60 CUS 

70 FOR 1*20 TO 1 STEP -i 
@0 LOCATE 1,19 

90 PRINT " ! 1" 

100 NEXT I 
110 REM 

120 REM MOVIMIENTO 

130 REM 

140 LET X*21 

150 FOR 1^20 TO 1 STEP -1 
160 LOCATE I + 1 P X 

170 PRINT " " 

ISO LOCATE I P X 

190 PRINT "O" 


200 FOR J 
210 NEXT 
220 NEXT I 

J 

TO 

100 



















230 REM 

240 REM 

LA 

* O' DESAPARECE * 

«i 





250 REM 

260 LOCATE 1 
270 PRINT *■ 

v 












. , X 

ii 

















280 END 



























En este programa podemos apreciar 
cómo la letra O se mueve de abajo hacía arri- 
ba a lo largo de una especie de carretera. 

Este programa puede funcionar sin pro- 
blemas en el Amstrad e IBM en el modo de 40 
columnas por línea. Para los demás ordenado- 
res las modificaciones son las siguientes; 

COMMODORE 

Línea 60 PRINT H < SHIFT-HGME > 
Línea 80 LET Y=I:GGSUB 9900 
Línea 160 LET Y=I+l:GOSUB 9900 
Línea 180 LET Y-1:GGSUB 9900 
Línea 260 LET Y=l:GOSUB 9900 
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Como siempre, hay que unir este pro- 
grama con la rutina LOCATE PARA COMMO- 
D ORE que se dio en el tomo 1 en la sección de 
trucos de programación. 

MSX 

Hay que cambiar de orden los argu- 
mentos de la sentencia 'LOCATE'. Según esto, 
donde ponga: LOCATE 1,19; nosotros tendre- 
mos que invertir el orden y poner: LOCATE 
19, 1. 

También es conveniente poner la pan- 
talla en 40 columnas por línea mediante la sen- 
tencia WIDTH 40. Ni que decir tiene que para 
esto es necesario que estemos en SCREEN 0. 

SPECTRUM 

Hay que cambiar todas las sentencias 
LOCATE' por PRINT AT, Por ejemplo, si en la 
línea 80 pone: 

80 LOCATE 1,19 

nosotros tendremos que cambiarlo por: 

80 PRINT AT 1,19 

sin olvidarnos de poner el punto y coma (;) al 
final. 

El funcionamiento del programa es muy 
sencillo. Entre las líneas 70 y 100 se dibuja la 
carretera de abajo hacia arriba. Se usa el sig- 
no de admiración (!) para señalar los bordes. 

El movimiento propiamente dicho em- 
pieza a partir de la línea 140. Analicemos lí- 
nea a línea. 

Línea 140. Se asigna a la variable X el 
valor 21. Esta será la columna donde se de- 
sarrollará el movimiento. 

Línea ISO. Comienza un bucle en el 
cual se va variando el número de línea en la 
que se colocará la letra "O". Como la letra va 
a subir por la pantalla, el bucle va desde 20 
hasta 1 con un incremento (STEP) de -1. 

Líneas 160 y 170. Se imprime en la fila 
I + 1 un espacio en blanco. Como ocurrió en el 
programa anterior, en la primera vuelta del 
bucle esto no sirve para nada, pero a partir de 
la segunda nos borrará la posición anterior de 
la “O". 

Líneas 180 y 190. Se imprime en la fila 
I la letra “O”. 

Líneas 200 y 210. Se hace un bucle en 
vacío para retardar el movimiento. Variando 
la longitud del bucle variará la velocidad. 

Línea 210. En esta línea termina el 

bucle. 


Cuando la letra "O” ha llegado a la fila 
número 1 , ésta se borra gracias a las líneas 260 
y 270. 

Si has leído con atención lo que hemos 
dado hasta ahora te darás cuenta que los dos 
tipos de movimiento, horizontal y vertical, son 
muy parecidos. Si lo has entendido todo bien 
debes estar en condiciones de hacer tú mis- 
mo un programa que haga que un carácter se 
mueva por la pantalla de arriba hacia abajo, 
¿Te atreves? 

Espero que lo intentes. Por si no te ape- 
tece hacerlo te propongo que ejecutes el pro- 
grama número 4 que te doy a continuación: 


10 rem 

20 REM * MOVIMIENTO DE UNA *Q f A LO LARGO t 
30 REM t DE UNA CARRETERA DE ARRIBA A ABAJO * 

40 rem '****m**s*tmM**t******Mm****i*t 

50 REM 
60 CLB 

70 FOR 1=20 TO 1 STEP 
80 LOCATE I S 19 
90 PRINT n í 
100 NEXT I 
110 REM 

120 REfl **# MOVIMIENTO *1* 

130 REM 


140 LET X=21 






150 FOR 1-2 10 20 
i 60 LOCATE I-I, 
170 PRINT M “ 

X 





180 LOCATE I,X 

190 PRINT “0” 








200 FOR 3=1 TO 

100 






210 NEXT J 

220 NEXT I 







230 REM 

240 REM * tí LA ’ CP 
250 REM 

Kit 











260 LOCATE 20, X 

270 PRINT 11 







200 END 
















Si te fijas en el listado verás que lo úni- 
co que he cambiado ha sido tres líneas. Inten- 
ta entender el significado de los cambios. 

Respecto a las modificaciones para 
otros ordenadores son las mismas que hemos 
visto en los programas anteriores. También es 
conveniente que tú mismo aprendas a modifi- 
car los programas para que funcionen en tu or- 
denador. De todas maneras, nosotros te iremos 
dando todas las modificaciones necesarias 
para que puedas ejecutar los programas. 

Movimiento diagonal en línea recta 

Este tipo de movimiento no se diferen- 
cia mucho de los anteriores. En el movimiento 
horizontal variaba la columna. En el vertical la 
fila. En el movimiento diagonal varían, a la vez, 


15 



MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 



la fila y la columna. Esto hace que tengamos 
cuatro casos posibles de movimiento diagonal: 

1, Positivo-positivo. La columna y la 
fila van aumentando de valor. 

I 

2. Positivo-negativo. La columna va au- 
mentando mientras la fila va disminuyendo. 

3, Negativo-positivo. La columna va 
disminuyendo mientras la fila va aumentando, 

4. Negativo-negativo. La fila y la co- 
lumna van disminuyendo. 



Por otra parte, el movimiento diagonal 
puede ser más o menos pronunciado con res- 
pecto a la horizontal (o a la vertical), Esto es: 
el ángulo que forma la línea sobre la que se 
desarrolla el movimiento con la horizontal pue- 
de tener un valor comprendido entre 0 y 90 
grados, 

Un movimiento diagonal de 45 grados 
implicaría que a cada incremento de la colum- 
na le corresponde otro igual de la fila. Un án- 
gulo de 90 grados implicaría que la fila iría va- 
riando, pero la columna no. Según esto, un án- 
gulo de 0 grados implicaría que la columna 
iría variando, pero no la fila. Cualquier otro 
tipo de ángulo hace necesario hallar la rela- 
ción entre el movimiento en la columna y en 
la fila. 

Según lo dicho hasta ahora se deduce 
que los movimientos vertical y horizontal pue- 
den ser tomados como dos casos particulares 
del movimiento diagonal. Si el ángulo es de 90 
grados el movimiento será vertical. Si fuese de 
0 grados éste sería horizontal. 

Aunque todo esto nos pueda parecer un 
poco difícil de entender, no te preocupes. Con 



Fig. 3. El movimiento vertical es un movimiento diagonal con 
un ángulo de 90. *. 



ñg. S, El movimiento horizontal es un movimiento diagonal con 
un ángulo de Oh 

el programa que propongo a continuación ve- 
rás que es más sencillo de lo que parece, El 
programa es el número 5. 


10 rem 

20 REM * MOVIMIENTO DIAGONAL DEL 45 GRADOS * 
30 REM i POS IT I VO-POSI TI VG Y PQSITI VD-NEGATI VQ* 

40 REM t ******* ********************* «***«***** 

50 REM 
60 CLS 
70 REM 

80 REM *** DIBUJO DE LA CARRETERA **• 

90 REM 

100 REM <« BORDE INFERIOR >» 

110 REM 

120 FDR 1-1 TO 15 


130 

LOCATE 

2+1 ? I 

140 

PRINT 


ISO 

LOCATE 

2+1,31-1 

160 

PRINT 



170 NEXT I 
100 REM 

190 REM <« BORDE SUPERIOR »> 

200 REM 

210 FOR 1=1 TO 13 

220 LOCATE 1,2+1 

230 PRINT 

240 LOCATE 1,29-1 

250 PRINT 

260 NEXT I 

270 REM 

280 REM tí* MOVÍ MIENTO DIAGONAL DE 45 GRADOS *** 
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290 REM 










300 REM <<< POSITIVO-POSITIVO >» 
310 REM 

320 FOR 1*1 TO 15 
330 LOCATE I p I 

340 PRINT M ü" 

350 FOR J-l TO 100 

360 NEXT J 

370 LOCATE 1,1 

330 PRINT tl 11 

390 NEXT I 
400 REM 

410 nm «< POSITIVO-NEGATIVO >>> 
420 REM 

430 FOR 1 = 1 TO 15 

440 LOCATE 16- 1,15+1 

450 PRINT ‘"O 11 

460 FOR J*I TO IQQ 

470 NEXT J 

ASO LOCATE 16-1,15+1 

490 PRINT 11 H 


500 NEXT 
51Ó END 

I 
















Este programa funciona sin problemas 
en el Amstrad e IBM. Se aconseja ejecutar este 
programa en el modo de 40 columnas por lí- 
nea. Las modificaciones para los demás orde- 
nadores son las siguientes: 

COMMODORE 

Línea 60 PRINT *<8HIFT-H0ME>" 

Todas las sentencias 'LOCATE 1 tienen 
que ser anuladas y sustituidas tal y como se 
ha visto en programas anteriores. La fórmula 
general es: 

1 . Asignar a la variable numérica Y el 
valor del primer argumento. 

2. Asignar a la variable numérica X el 
valor del segundo argumento. 

3. Hacer ’GOSUB 9900’ 

Si tomamos como ejemplo la línea 150: 

150 LOCATE 2+1,31-1 
nosotros tendríamos que poner: 

150 Y *2+I:X“3 1-1: GOSUB 9900 

Por supuesto, como se dijo más arriba, 
es necesario unir este programa a la rutina 
LOCATE PARA COMMODORE que se dio en 
el tomo 1 . 

MSX 

Sólo hay que cambiar el orden de los ar- 
gumentos de todas las sentencias LOCATE. Si 
la línea 150 es: 

150 LOCATE 2+1,31-1 
los usuarios del MSX tendrán que poner: 

150 LOCATE 31-1,2+1 


SPECTRUM 

Hay que cambiar todas las sentencias 
LOCATE por 'PRINT AT\ Por ejemplo, la línea 
150 nos quedaría: 

150 PRINT AT 2+1,31-1; 

No hay que olvidarse de poner el pun- 
to y coma (;) después de cada sentencia 
'PRINT AT 1 . 

El funcionamiento del programa no re- 
viste ninguna complicación. Lo único que se 
hace es variar a la vez la fila y la columna, in- 
crementando ambas en uno, para realizar el 
movimiento. Te aconsejo pruebes a variar el 
programa para que, en vez de realizar un mo- 
vimiento positivo-positivo y positivo-negativo, 
éste sea negativo-positivo y negativo-negativo. 

Por si no te sale, el programa número 6 
te muestra cómo hacerlo. 


10 REM tllt f * ttitt tt ttfttttt **** ********** ****** 

20 REM * MOVIMIENTO D I AGONAL DEL 45 GRADOS I 
30 REM * NEGATIVO-POSITIVO Y NEGATIVO -NEGATIVO * 

40 rem 

50 REM 
60 CLS 
70 REM 

80 REM *** DIBUJO DE LA CARRETERA *«* 

90 REM 

100 REM <<< BORDE INFERIOR >» 

110 REM 

120 FOR I«l TO 15 
130 LOCATE 2+1,1 

140 PRINT "#* 

150 LOCATE 2+1,31-1 
160 PRINT 

170 NEXT I 
160 REM 

190 REM «< BORDE SUPERIOR »> 

200 REM 

210 FOR I-l TO 13 
220 LOCATE 1,2+1 

230 PRINT M #* 

240 LOCATE 1,29-1 

250 PRINT ■'#” 

260 NEXT I 
270 REM 

230 REM *** MOVIMIENTO DIAGONAL DE 45 GRADOS tt* 
290 REM 

300 REM «< NEGATIVO-POSITIVO »> 

310 REM 

320 FOR 1=1 TO 13 
330 LOCATE 1,31-1 

340 PRINT M o" 

350 FOR TO 100 
360 NEXT J 

370 LOCATE 1,31-1 

380 PRINT * M 

390 NEXT I 
400 REM 

410 REM <<< NEGATIVO-NEGATIVO »> 

420 REM 

430 FOR I»i TO 15 
440 LOCATE 16-1,16-1 

450 PRINT "o" 

460 FOR J-*l TO 100 

470 NEXT J 

400 LOCATE 16-1, 16-1 

490 PRINT H " 

500 NEXT I 
510 END 


Las modificaciones que hay que reali- 
zar son iguales a las del programa número 5. 
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TRUCOS Y RUTINAS BASICAS 


Subrutina de petición de hora 


N muchos programas es ne- 
cesario, en un cierto mo- 
mento, la introducción de la 
hora para que el programa 
que se está ejecutando en 
ese momento pueda seguir 
funcionando. 

La rutina que propo- 
nemos a continuación nos pedirá la hora por 
pantalla. Dicha petición aparecerá en la fila y 
columna que deseemos, y la almacenará en la 
variable T$ con el siguiente formato: 

hh:mm:ss 



donde: 

hh = horas 
mm - minutos 
ss = segundos 

Para utilizar esta rutina necesitaremos 
la rutina de introducción datos que se dio en 
el tomo 1 y que comenzaba en la línea 9900. 

Los parámetros que son necesarios pa- 
sarle a la rutina de entrada son los que se enu- 
meran a continuación: 

X = Columna donde se inicia la entrada 
de la hora. 


Y = Pila donde se inicia la entrada de la 

hora. 

SW = Variable que nos dice si se mues- 
tra la hora existente hasta el momento. Si 
SW = 0 no se muestra. Cualquier otro valor nos 
mostrará la hora actual. 

El resultado de la rutina nos vendrá 
dado por la variable alfanumérica T$. En el 
caso que haya que mostrar la hora actual y T$ 
fuese una cadena vacía se mostrará la hora 
como: 

00 : 00:00 



12 de MARZO de 1986 
HORA: 12:34:00 

Muchos programas comercia- 
les nos indican constantemente 
la hora y el día en la primera lí- 
nea de la pantalla. 

Antes de poder hacer esto, tie- 
nen que pedimos la hora actual y 
el día, mes y año en que se ejecu- 
ta el programa. 

Con el programa 1 podrás pe- 
dir la hora y con el número 3 la 
fecha actual 


Fig. I 

El funcionamiento del programa es el 
siguiente: 


3000 REM ******************************************************* 

8001 REM * 

8002 REM * <<< SUBRUTINA MODIFICADA DE ENTRADA DE LA HORA >>> 

8003 REM * 

8004 REM * VALIDA PARA MSX P IBM, AMSTRAD, CQMMGDORE V SPECTRÜM 
3005 REM * 

8006 REM ****** ****************** ************** ******** ********* 

8007 REM * 

8000 REM * VARIABLES QUE HAY QUE PASARLE A LA RUTINA 
B009 REM * — — 

8010 REM * 

8011 REM * X =* COLUMNA DONDE EMPIEZA LA PETICION. 

8012 REM t Y = FILA DONDE EMPIEZA LA PETICION* 

8013 REM * 6W » SWICH QUE NOS INDICA SI SE PRESENTA LA HORA 

8014 REM * ACTUAL. 
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0015 REM * 

801 6 REM * EL RESULTADO SÉ RETORNA EN T* * 

BO 17 REM * * 

00 IB REM * VARIABLES USADAS INTERNAMENTE POR LA RUTINA 

801*? REM * — — “ * 

8020 REM * * 

8021 REM * M* * SIEMPRE TIENE VALOR "9" * 

0022 REM * W* = SIEMPRE TIENE VALOR "O” * 

8023 REM * LO “ SIEMPRE TIENE VALOR 2 * 

0024 REM * Dfc « RESULTADO DE LA RUTINA DE ENTRADA DE DATOS 

SO 25 REM * * 

8026 REM * ADEMAS DE ESTAS, SE UTLI2AN TODAS LAS USADAS POR LA « 

8027 REM * RUTINA DE ENTRADA DE DATOS. * 

0028 REM * * 

8029 REM ********* ******* *********** ******** ***** **************** 


8030 REM 

8031 IF SW=0 THEN BOTO 8035 

8032 LOCATE V, X 

8033 IF THEN LEI T** 1l 00i OOi 00” 

0034 PRINT “La hora actual mi 11 |T* 

0035 LET Y=Y+1 

8036 LOCATE Y,X 

8037 PRINT " Introduzca la nueva hora .. % * ■ - " 

6038 LET X=X+26 

8039 H«» u 9 l4 iHt- u O n 

0040 LQf=2 

0041 GOSUB 9900 

8042 IF VAL(D*)<0 OR VALÍD*)>24 THEN LET X=X-28:G0TP B03B 

0043 IF ,J THEN LET D*= h, 00 ,< 

0044 LET T*=D* 

8043 LET X=X+3 
9046 0OSUB 9900 

8047 IF VALCDtKO GR VAL(Df>>59 THEN LET X^X-3lBOTO B045 

8048 IF D*“" " THEN LET D«="QO M 

8049 LET !*=!<+“ i M +D* 

8050 LET X=X+3 
0051 GOSU0 9900 

8032 IF VAL(D*J<0 OR VALCD*)>59 THEN LET X-X”5iGDT0 8030 


Modificaciones de los piogramas 1 y 2 

Si cualquiera de los dos programas va a ser utilizado en una pantalla que tenga me- 
nos de 80 caracteres de ancho se propone variar las siguientes líneas: 

8037 PRINT “Introduzca la nueva hoia": LOCATE Y+l.X+SiPRINT “..ll^LET Y=Y+1 
3083 X=X+5 

3042 IF VAL (DÍ)<Ü OR VAL (Dí)>34 THEN LET X=X-7:G0T0 3038 


En la línea 8031 se pregunta si la varia- 
ble numérica SW es igual a cero (0). En caso 
afirmativo se transfiere el control del progra- 
ma a la línea 8035. En esta línea empieza la re- 
cogida de la nueva hora. 

Si SW es distinto de cero, entonces se 
imprime el valor actual de T$. En el caso de 
que T$ fuese una cadena vacía, se le asigna el 
valor ‘00:00:00’ y se imprime la hora actual 
(8034). 

En la línea 8035 se suma uno (1) a la va- 
riable Y. Esto es así porque si el valor de SW 
era distinto de cero, la introducción de la hora 
ha de ir en la línea siguiente. Si al utilizar la ru- 
tina das un valor cero a SW, entonces piensa 
que la fila en la que aparecerá la petición de 


datos no es la que tú le marcaste con la varia- 
ble T, sino una línea más abajo, 

Entre las líneas 8036 y 8037 se imprime 

el mensaje: 

Introduzca nueva hora 

en la fila y la columna que nosotros hayamos 
indicado. En la siguiente línea (8038) se suma 
veintiséis (26) a la variable X. Esto es necesa- 
rio, ya que el mensaje se empieza a imprimir 
en la columna X, pero la entrada de la hora ha 
de empezar en X+26. 

En las líneas 8039 y 8040 se dan valores 
a M$ y W$, que nos dicen el primer y el últi- 
mo carácter que se permite introducir, y LO, 
que nos da el número máximo de caracteres 
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que podemos introducir, Estos valores no se 
varían en todo el programa. 

En la línea 9041 se llama a la subrutina 
de entrada de datos. Sí, al retornar la rutina, 
el valor de D$ éste es mayor que 24 (veinti- 
cuatro horas hay en el día) o menor que 0 (no 
hay horas negativas), se vuelve a repetir la pe- 
tición. 

Si la entrada ha sido correcta, entonces 
se vuelca el contenido de D$ en T$ y se con- 
tinúa con la petición de los minutos. 

A partir de este momento el funciona- 
miento del programa es igual que lo que he- 
mos visto anteriormente. 



Ejercicios resueltos 


EJERCICIO N « 1 

En el programa 1, cuando se pulsa RE- 
TURN directamente, la variable D$ no coge 
ningún valor y VAL(D$) nos devuelve el valor 
cero (0). Debido a esto, si pulsamos en las tres 
entradas la tecla RETURN, no nos retornará, en 
D$, ningún valor, y T$ será igual a 

¿Serías capaz de modificar el programa 
para que no ocurriese esto? 

SOLUCION 

Como puede apreciarse en el progra- 
ma 2 lo único que hay que hacer es mirar si 
D$ es una cadena vacía ('"'). Si lo es, lo único 
que hay que hacer es que D$ sea igual a "00”. 


Pantalla que aparece al ejecutar el programa I. 


600 O REM ******************************************************** 


BOOi REM * * 
9002 REM * <<< 6UBRUTINA DE ENTRADA DE LA HORA >>> * 
8003 REM * * 
3004 REM * VALIDA PARA MSX, IBM, AMSTRAD, CÜMMGDÜRE V SPÉCTRUM * 
0005 REM * t 
S006 REM ******************************************************** 
3007 REM * * 
9009 REM * VARIABLES QUE HAY QUE PASARLE A LA RUTINA * 

300? REM * — * 

3010 REM * * 
BOU REM * X = COLUMNA DONDE EMPIEZA LA PETICION. * 
9012 REM * Y = FILA DONDE EMPIEZA LA PETICION. « 
0013 REM * SW - SWICH QUE NOS INDICA SI SE PRESENTA LA HORA * 
3014 REM * ACTUAL. * 
BÜ15 REM * * 
8016 REM * EL RESULTADO SE RETORNA EN T* * 
3017 REM * * 
BQ1B REM * VARIABLES USADAS INTERNAMENTE POR LA RUTINA * 

301? REM I * 

8020 REM * * 
6021 REM * M* = SIEMPRE TIENE VALOR ”9" * 
0022 REM t m = SIEMPRE TIENE VALOR "G" * 
3023 REM * LO * SIEMPRE TIENE VALOR 2 * 
B024 REM * m = RESULTADO DE LA RUTINA DE ENTRADA DE DATOS * 
8025 REM * * 
3026 REM * ADEMAS DE ESTAS, SE UTLIZAN TODAS LAS USADAS POR LA « 
B027 REM * RUTINA DE ENTRADA DE DATOS* * 
8028 REM * * 


8029 REM ******************************************************** 

8030 REM 

8031 IF SW*0 THEN GOTO 9035 

8032 LOCATE Y,X 

8033 1 F T *= " 11 THEN LET T*= J -00s OOí 00” 

B034 PRINT "La hora actual ese 11 1 T* 

8035 LET Y= Y + 1 

8036 LOCATE Y*X 

8037 PRINT " Introduzca la nueva hora . . i . , i . . ” 

803S LET X-X+26 

8039 M*= il 9"; W*="0" 

8040 LD-2 
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8041 GDSUB 9900 

8042 IF VAL(D*><0 OR VAL(D*1>24 THEN LET X-X-28¡GÜTÜ 8038 

8043 LET T*=D* 

0044 LET X-X+3 

8045 GOSUB 9900 

8046 IF VñUDfKO OR VALÍ»*) >59 THEN LET X^X-5tG0TG 0044 
0047 LET T*-Tt+ H i"+D* 

8048 LET X«X+3 
SO 49 GOSUB 9900 

8050 IF VAL<D*í<0 OR VAL<Dt)>59 THEN LET X=X-3lGOTO 8048 

8051 LET T*»T*+ ,l l 

8052 RETURN 

8053 IF D*=' MI THEN LET Dfc-'W’ 

8054 LET T*=T*+ #, t "+D« 

B055 RETURN 


Subrutina de petición de fecha 

Al igual que es necesario, según qué 
programas, tener una rutina para la petición 
de la hora, es necesario tener otra subrutina 
que le pida al usuario la fecha. Si estamos rea- 
lizando un programa de contabilidad, necesi- 


taremos saber en qué fecha se realizaron cier- 
tos movimientos. Con esta rutina se puede rea- 
lizar la entrada de cualquier fecha entre el año 
1900 y el 1999. Aunque los años estén restrin- 
gidos, se puede modificar el programa para 
que acepte fechas anteriores o posteriores a 
las prefijadas. 


eioo rem 


0101 REM * * 

0102 REM * «< SUBRUTINA DE ENTRADA DE LA FECHA »> t 

0103 REM * I 

8104 REM * VALIDA PARA MSX, IBM, AMSTRAD, COMMODORE Y 5PECTRUM * 

0105 REM * t 

8106 REM ********************* I****» ***************************** 

8107 REtl * * 

8108 REM * VARIABLES QUE HAY QUE PASARLE A LA RUTINA * 

8109 REM * * 

8110 REM * * 

8111 REM * X = COLUMNA DONDE EMPIEZA LA PETICION- * 

0112 REM * Y = FILA DONDE EMPIEZA LA PETICION, * 

8113 REM t SW * SWICH QUE NOS INDICA SI SE PRESENTA LA FECHA * 

8114 REM 4 ACTUAL P * 

SUS REM * * 

8116 REM * EL RESULTADO SE RETORNA EN T* * 

8117 REM * t 

01 IB REM * VARIABLES USADAS INTERNAMENTE POR LA RUTINA * 

B119 REM * $ 

8120 REM * * 

8121 REM * M* =* SIEMPRE TIENE VALOR M 9" * 

8122 REM * W* * SIEMPRE TIENE VALOR "O" * 

8123 REM * LO = SIEMPRE TIENE VALOR 2 * 

8124 REM * D* = RESULTADO DE LA RUTINA DE ENTRADA DE DATOS * 

8125 REM 4 * 

8126 REM * ADEMAS DE ESTAS, SE UTLIZAN TODAS LAS USADAS POR LA * 

8127 REM * RUTINA DE ENTRADA DE DATOS. 4 

8128 REM * t 


0129 REM! ******************************************************** 

8130 REM 

8131 IF SW=0 THEN GOTO 8135 

0132 LOCATE Y,X 

0133 IF F*= ,,,t THEN LET F*="01 /OI / 1900" 

8134 PRINT "Focha actual i " | F* 

8135 LET Y^Y+1 

8136 LOCATE Y f X 

0137 FRINT "Introduzca la nueza fecha / ■, / 

8138 LET M*="9" 

0139 LET W*= 1J 0" 

0140 LET LO-2 
8141 LET X-X+27 
0142 GOSUB 9900 

8143 IF VALÍDfXO OR VAL (D*) >31 THEN LET X*X-29íG0T0 81 4i 

8144 LET F*=D* 

8145 LET X^X+3 
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8146 GOBUB 9900 

8147 IF VALÍDtXl DR VALÍD*)>12 THEN LET X=X-5lBOTO 8145 
8140 LÉT F*-F*+ M / T, +D* 

8149 LET X-X+3 

8150 GOBUB 9900 

8151 IF VñLtDtXO LET X=X*5iQ0T0 8149 








8152 

8153 

IF DO“ M *' THEN 
LET Ft*FS+ M /i= 

LET 

P^+D* 

■00" 











8154 

RETURN 








Modificaciones al programa 3 


Si el programa va a ser utilizado en una pantalla que tenga menos de 80 caracteres 
de ancho, se propone variar las siguientes líneas; 

8137 PRINT "Introduzca focha actuar’:LOCATE Y+LX+SíPRINT 

8138 LET Y=Y+1 
8141 LET X“X+S 

8143 ir VAL (DÍ)<1 OR VAL(D$)>31 THEN LET X=X-7:GOTO 8141 


El funcionamiento de este programa es 
muy parecido al anterior, pues incluso utiliza 
la misma rutina de entrada de datos que se dio 
en el tomo 1 . 



12/12/1996 
Introduzca la nueva 


fecha; 15/12/8_ 



Fig. 3. Pantalla que aparece al ejecutar el programa 3 

Las variables que hay que pasarle para 
que funcione son: 

X = columna donde empezará la peti- 
ción de la fecha, 

Y = fila donde empezará la petición de 
la fecha. 

SW = Indica si se ha de imprimir la fe- 
cha que se tiene almacenada. Si SW es igual 
a cero, entonces no se muestra la fecha ante- 
rior. Si su valor es distinto de cero, se mostra- 
rá la fecha que se tiene almacenada. En el 
caso particular que no hubiese una fecha an- 
terior almacenada, se mostraría en pantalla: 


Fecha actual: 01/01/1900 

El resultado de la entrada de la fecha 
aparece en la variable alfanumérica F$. 

La forma de funcionar esta rutina es 
muy parecida a la anterior (Programa 1), con 


la única diferencia que el resultado de la va- 
riable T$ tiene el siguiente formato: 

dd/mm/19aa 

donde: 

dd = día 
mm = mes 

19aa = año entre 1900 y 1999 


Subrutina de conversión de la fecha 

La siguiente subrutina transforma una 
cadena que contenga una fecha de la forma: 

12/05/1987 

en otra de cadena de la forma: 

MARTES 12 de MAYO de 1987 

Esta rutina es útil para hacer que nues- 
tros programas sean más humanos y parezcan 
que entienden mejor nuestro lenguaje. 




Hola, hoy es MARTES 12 de 
AGOSTO de 1986. Son las 
13:38:22 de la mañana. Em- 
pecemos la sesión de hoy. 
¿Quieres cambiar la hora? 

¿Quieres cambiar el día? 



Fig. 4. Esta es una rutina que hace al ordenador un poco mas 
cercano a nosotros. 
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sooo 

8001 

©002 

8003 

8004 

8005 

8006 

8007 

8008 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


*44 ** ************* ***** ****** ******* ****************** 44 


* 

* 

I 

4 


«< PROGRAMA BE CONVERSION DE FECHA >>> 
VALIDO PAR MSX, IBM, AM5TRAD, COMMQDORE Y SPECTRUM 


* 

* 

* 




* 

* 

* 


VARIABLES QUE HAY QUE PASARLE A LA RUTINA 


* 

t 

* 



8009 REM 

8010 REM 

4 

4 F* = FECHA A CONVERTIR, EL FORMATO A DE 

SERs 



4 

4 



8011 REM 

8012 REM 

8013 REM 

4 

4 

4 

dd/mm/aaaa 




* 

4 

t 



9014 

8015 

8016 
8017 
8013 

8019 

8020 
8021 
8022 
9023 

8024 

8025 

8026 
8027 
SQ2B 

8029 

8030 

8031 

8032 

8033 

8034 
O 2) 

8035 LET 
TO 5) 

8036 LET 
TO 

8037 

8038 

8039 

8040 

8041 

8042 
0043 

8044 

8045 

8046 
*<9 


* 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


EL RESULTADO ES DEVUELTO EN R* 


VARIABLES USADAS INTERNAMENTE 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

IF " THEN 
DIM N* (3) » REM 


N*< 2) 
N4Í25 
N*<3> 
Z 

A» 

N 

F 

D 


ALMACENA 

ALMACENA 

ALMACENA 

CONTADOR 

VARIABLE 

VARIABLE 

VARIABLE 

CONTADOR 


EL 

EL 

EL 

DE 


DIA 

MES 

AfiíQ 

BUCLE 


LECTORA DE DATAS 
AUXILIAR 
CON LA FILA 
DE LA TABLA 


DE 

DE 


LA TABLA 
DIAS DE LA 


semana 


4 

* 

4 

4 

4 

* 

4 

4 

4 

4 

4 

* 

4 

4 


44444*4444444*4*4444444444*414144 * 44 44444444444444444 444 
4*4 PROGRAMA PRINCIPAL 444 


LET 
< — 


EN 


M 


SIN FECHA "iRETURN 


EL SPECTRUM CAMBIARLO POR» DIM N*<3,10> 

LET NIU) “M-EFT# ÍF4, 2) i REM < — EN EL SPECTRUM CAMBIARLO FORt LET N>U)**F«t T 

N*{2>=MID*ÍF*,4,2) iREM <— EN EL SPECTRUM CAMBIARLO PCRi LET N*<2>=F*Í4 

N*Í3>-MID*ÍF4,7, 4) tREM < — EN EL SPECTRUM CAMBIARLO PORi LET N*Í3>^F*(7 

10 > 

LET RiMBTR*<VAL<N*ti) ) )+" de " 

RESTORE 8066 

FOR Z=i TO VAL <N§ í 2) ) 

READ A 4 
NEXT 2 

LET R$«RS+A*+" de n +N*<3) 

REM 

REM *44 CALCULO DEL DIA DE LA SEMANA 4*4 
REM 

LET N=VAL(MlD4<Ff í 9 f 2) )+4iREM <— 

TO 10) > +4 


EN EL SPECTRUM CAMBIARLO PORl LET N=VAL (F 


f NT 1 Í7R+ . R 











8047 LET F=<N/28- 

8048 LET F-INTÍF) 

8049 RES TURÉ 8067 

8050 FOR Z-l TO F 

8051 READ A* 

8052 NEXT Z 

8053 LET N-VAL ÍM ID* f A* , VAL (N* (2> ) , 1 ) ) I REM <-- EN EL SPECTRUM CAMBIARLO PORl 
N= VAL í A® < VAL C N * i 2 3 ) ) ) 

G054 LET í VAL íN* C 1) J 

LET ÍD/7- INT ÍD/7> ) 47+ . 5 

IF D=Q THEN LET D”7 
RESTORE BG95 
FOR 2=1 TO D 
READ A* 

NEXT 1 

R*=A*+Rt 


LET 


8055 
SOS 6 

8057 

8058 

8059 

8060 
8061 
8062 

8063 

8064 

8065 

8066 


LET 

RETURN 
REM 

REM 444 
REM 

DATA " ENERO 


LINEAS DÉ DATAS 4*4 


ii 


, "FEBRERO" , "MARZO", "ABRIL", 
TIEMBRE", "OCTUBRE" , "NOVIEMBRE" , "DICIEMBRE" 
8067 DATA "400351362402" 

"51 146240351 3" 

" 6225035 14624 " 

"034025036146" 

"255136140250" 

"366240251361 11 
"400351362402" 


"MAYO" , "JUNIO" , "JULIO" , "AGOSTO", "SEP 


8060 

8069 

B07O 

8071 

8072 

8073 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
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8074 DATA ''512503514624" 
8073 DATA "033614625035" 

8076 DATA "144025036146" 

8077 DATA "2351 36 140230" 

8078 DATA •360351362402" 

8079 DATA "311462403513" 
SOBO DATA •'622503314624" 
8001 DATA "033614625035’' 
B0B2 DATA ‘'145136140250" 
8083 DATA "366240251361" 
0064 DATA "400351362402" 


8085 DATA "51 i 4¿2403513" 




B086 DATA "62Zél4h25GX5" 




8087 DATA "144025036146" 

3088 DATA "2551 36140230“ 

9069 DATA '•366240251361" 

8090 DATA '‘401462403313" 

6091 DATA ”622503514624’' 

8092 DATA "033614625035" 

B093 DATA "144025036146’’ 

3094 DATA ”236240231361" 

3095 DATA "DOMINGO" , "LUNES" , "MARTES" , "MIERCOLES" , "JUEVES” , "VIERNES" , "SABADO" 


Para utilizar esta rutina sólo hay que pa- 
sarle la fecha que se quiere procesar en la va- 
riable F$. La cadena resultante se devolverá 
en la variable alfanumérica R$. 

Su funcionamiento es el siguiente: 

Lo primero que se hace (línea 8032) es 
comprobar que la cadena F$ no es una cade- 
na vacía. En el caso de que lo sea, se asignará 
a R$ el mensaje: "SIN FECHA", 

En las líneas comprendidas entre la 
8033 y 8036 se dimensiona la tabla alfanumé- 
rica N$ y se asigna a cada uno de sus elemen- 
tos el día, el mes y el año, respectivamente. 
Esto se hace de esta manera para no tener que 
estar dividiendo el string F$ continuamente, 

A continuación (línea 8037) se asigna a 
la variable R$ el número del día, quitando los 
ceros de la izquierda, seguido de la palabra: 
‘de 1 . 

En las cuatro líneas siguientes (8038, 
8039, 8040 y 8041) se lee de la línea de datas, 
que se encuentra en la línea 8066, el mes, en 
letra, de la fecha a modificar. 

En la línea 8042 se concatena el valor 
actual de R$ con el mes leído y con el año de 
la fecha. 

En este momento, sí la variable F$ era 
igual a: 

03/08/1944 

nos encontramos con que R$ es igual a: 

3 de AGOSTO de 1944 

Ya sólo nos queda por conocer en qué 
día de la semana cayó el 3 de agosto de 1944. 

A partir de este momento empieza la 
parte más complicada del programa. Antes de 
seguir con él, explicaré cómo se puede saber 


el día de la semana de cualquier día de cual- 
quier año. 

Más de una vez os habréis encontrado 
con unas tablas que, mediante una serie de su- 
mas, nos permiten conocer en qué día de la 
semana cayó nuestro cumpleaños hace siete 
años. Estas tablas son como las que se pueden 
ver en la figura 5. Si, por ejemplo, queremos 
saber en qué día de la semana cayó el 12 de 
JUNIO de 1984, realizaremos los siguientes pa- 
sos: 

1. Buscar en la tabla ‘A’ el año al que 
nos referimos, 

2. Se busca en la tabla 'B 1 el número 
que se encuentra en la misma línea que el año 
y en la columna del mes. En el caso del ejem- 
plo nos encontramos con el número 5. 

3. Se suma el número que hemos ha- 
llado con el número de días. En nuestro caso: 
12 + 5= 17. 

4. Se busca en la tabla 'C' el número 
resultante y se mira en qué fila se encuentra. 
En dicha fila está escrito el día de la semana. 
En nuestro ejemplo nos sale que el 12 de JU- 
NIO de 1984 era MARTES. 


TABLA ‘A’ 1901-1999 


DOS ULTIMAS CIFRAS 



25 

63 

81 


26 

54 

82 


27 

55 

83 


28 

56 

84 

01 

29 

57 

85 

02 

30 

58 

86 

03 

31 

59 

87 
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DOS ULTIMAS CIFRAS 


04 

32 

60 

88 

05 

33 

61 

89 

06 

34 

62 

90 

0 ? 

35 

63 

91 

08 

36 

64 

92 

09 

37 

65 

93 

10 

38 

66 

94 

11 

39 

61 

95 

12 

40 

68 

96 

13 

41 

69 

93 

14 

42 

70 

98 

15 

43 

71 

99 

16 

44 

72 


1 ? 

45 

73 


18 

46 

74 


19 

47 

75 


20 

48 

76 


21 

49 

77 


22 

50 

78 


23 

51 

79 


24 

52 

80 



TABLA 

E 

F 

M 

A 

M 

j 

j 

A 

S 

O 

N 

D 

4 

0 

0 

3 

5 

1 

3 

6 

2 

4 

0 

2 

5 

I 

1 

4 

6 

2 

4 

0 

3 

5 

1 

3 

S 

2 

Z 

5 

0 

3 

5 

1 

4 

6 

2 

4 

0 

3 

4 

0 

2 

5 

0 

3 

6 

I 

4 

6 

2 

5 

S 

1 

3 

6 

1 

4 

0 

Z 

5 

0 

3 

S 

€ 

2 

4 

0 

2 

5 

1 

3 

6 

1 

4 

0 

0 

3 

5 

1 

3 

6 

2 

4 

O 

2 

5 

1 

2 

5 

0 

3 

5 

1 

4 

6 

2 

4 

0 

3 

3 

6 

I 

4 

6 

2 

5 

0 

3 

5 

1 

4 

4 

0 

2 

5 

0 

3 

6 

1 

4 

6 

Z 

5 

5 

1 

3 

6 

1 

4 

0 

2 

5 

0 

3 

6 

0 

3 

S 

1 

3 

6 

2 

4 

0 

2 

5 

1 

1 

4 

6 

2 

4 

0 

3 

5 

1 

3 

6 

2 

2 

5 

0 

3 

3 

I 

4 

6 

2 

4 

0 

3 

3 

6 

1 

4 

6 

2 

S 

0 

3 

5 

1 

4 

5 

l 

3 

6 

1 

4 

0 

2 

5 

0 

3 

6 

€ 

2 

4 

0 

2 

5 

1 

3 

6 

1 

4 

0 

0 

3 

S 

1 

3 

6 

2 

4 

0 

2 

5 

I 

1 

4 

6 

2 

4 

0 

3 

5 

1 

3 

6 

2 

3 

6 

1 

4 

6 

2 

5 

0 

3 

5 

1 

4 

4 

0 

2 

5 

0 

3 

6 

1 

4 

6 

2 

S 

5 

1 

3 

6 

1 

4 

0 

2 

5 

0 

3 

6 

6 

2 

4 

0 

2 

5 

I 

3 

6 

1 

4 

0 

1 

4 

6 

2 

4 

0 

3 

5 

1 

3 

6 

2 

2 

5 

0 

3 

5 

l 

4 

6 

2 

4 

0 

3 

3 

6 

1 

4 

6 

Z 

5 

0 

3 

5 

1 

4 

4 

0 

2 

S 

0 

3 

6 

1 

4 

6 

2 

5 

6 

2 

4 

0 

2 

5 

1 

3 

6 

1 

TABLA 

£ C‘ 











D 

1 

8 

15 

22 

29 

36 

L 

2 

9 

16 

23 

30 

31 

M 

3 

10 

17 

24 

31 


M 

4 

11 

18 

25 

32 


I 

5 

12 

19 

26 

33 


V 

6 

13 

20 

27 

34 



Fig, S, Tabla para hallar el día de la semana de una fecha. 


Una vez conocido el método para en- 
contrar el día de la semana es mucho más fá- 
cil continuar con la interpretación del progra- 
ma, 

Lo primero que se hace es asignar a la 
variable numérica N el valor de las dos últi- 
mas cifras del año más cuatro. Hay que sumar- 
le cuatro porque el año 1901 está en la fila nú- 
mero 5 y esto impone un desplazamiento de: 

N, ° de año + 4. 

Una vez que tenemos inicíaíizada la va- 
riable N asignamos a F la fila en la que se en- 
cuentra dicho año en la tabla ‘A 1 . Esto se con- 
sigue quedándonos con el resto de dividir el 
año entre el número de filas de dicha tabla. 
Como en los ordenadores suele haber error a 
la hora de redondear, se le suma al resultado 

O. 5 para que no exista error. 

A partir de la línea 3049 y hasta la 8052 
se realiza un bucle, gracias al cual, cuando 
éste termina, almacenamos en A$ la fila que 
nos interesa. 

Una vez que hemos encontrado la fila 
del año tenemos que encontrar la columna del 
mes. Pero la columna del mes coincide con el 
número de mes. Si el mes es ENERO, su co- 
lumna es la número 1 . Si el mes fuese JUNIO, 
su número sería el 6, y así sucesivamente. 

Ahora sólo nos resta encontrar el núme- 
ro que se encuentra en la intersección de la 
columna del mes con la fila de dicho año, Su- 
mamos dicho número con el número de día. 

A continuación, y como pasó con la ta- 
bla ‘A', dividimos el número entre siete y nos 
quedamos con el resto. Con esto llegamos a sa- 
ber en qué día de la semana cayó la fecha que 
conocíamos. 


Ejercicios resueltos 

EJERCICIO N.° 1 

En el programa 4 hemos visto cómo se 
puede representar la fecha de una manera 
más elegante a la habitual. Si te fijas en la fi- 
gura 4 verás que el ordenador no sólo nos dice 
la fecha, sino que nos dice, además, si es por 
la mañana, por la tarde o por la noche. ¿Serías 
capaz de hacer un programa con el que se ob- 
tuviese el mismo resultado? 
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TRUCOS Y RUTINAS BASICAS 

SOLUCION 



1000 REM ********** ***** ***************************************** 


1010 RE M * * 
1020 REM * <<< CONVERSION DE LA HORA 1 >>> * 
1030 REM * * 
1040 REfl * VALIDO PARA MSX* 4 BM, AMSTRAD, COMMODORE Y SPECTRUM * 
1030 REM *****1***1********** *********** ***************** ******** 
1060 REM * * 
1070 REM * VARIABLES ÜÜE HAY QUE PASARLE A LA RUTINA * 

1080 REM * — * 

1090 REM * * 
1100 REM * T* * HORA QUE SE QUIERE CONVERTIR. CON FORMATO t * 
1110 REM * * 
1120 REM * hh:mm:ss * 
1130 REM * 4 
1140 REM * EL RESULTADO SE RETORNA EN R* * 
1130 REM * f 
1160 REM * VARIABLES USADAS INTERNAMENTE * 

1170 REM * — — — — f 

USO REM * * 
1190 REM * A* ~ VARIABLE AUXILIAR * 
1200 REM * N = HORA A MODIFICAR * 
1210 REM * Z* o HORA MODIFICADA * 
1220 REM * * 


1230 REM ******************************* *********** ******* ******* 

1240 REM 

8200 IF T*=" " THEN LET RS~’ f SIN HORA 1 * t RETURN 

B201 IF MIDÜ.-IT*, 1 1 2>< I, 13 M THEN LET A*-* 1 de la mañana” i BOTO 8207* REM < — EN EL SPE 
CTRUM SUSTITUIR PORi IF T* í TO 2)<" 13" THEN 

8202 LET A*^ M de la tarde” 

8203 LET N=VAL*MlD*ÍT* f 1,2) >-12iREM < — EN EL SPECTRUM SUSTITUIR PORg LET N=VAL < 
T % < TO 2> i -12 

8204 IF N>8 THEN LET A***'d® la flocho” 

B205 LET Z*f=MlD* ÍSTR* ÍN) ,2 t 2í l REM < — EN EL SPECTRUM SUSTITUIR PORi LET Z*ÍSTR*< 
Ni ) (2 TO 2» 

8206 LET T*«Z*+MID* (T*,3) tREM < — EN EL SPECTRUM SUSTITUIR PORi LET T**Z$+T< C 3 
TO ) 

6207 LET R*=T*+" ”+A* 

8208 RETURN 


Como puede verse la solución es muy 
sencilla. Consiste sólo en mirar si la hora es 
mayor de 12. Si lo es, entonces le restamos 12 
a la hora y ponemos de la tarde'. Si fuese me- 
nor o igual, no restaríamos nada y pondríamos 
'de la mañana'. 

EJERCICIO N.° 2 

Te imaginas que el ordenador te dijese: 

Son las DOCE Y CUARTO pasadas 


o bien: 

Son las TRES menos 1 0 

Hacer un programa que lo haga no es 
muy difícil. ¿Lo intentamos? 

SOLUCION 

Esta vez no te digo cómo lo he hecho 
para que lo mires, te lo estudies y seas capaz 
de perfeccionarlo. 


7600 REM **********************1**1****** ***************** ****** 

7601 REM * 

ikm fféM i Qmmmim di la hora a »> 

7603 REM * 

7604 REM * VALIDO PARA MSX, IBM, AMSTRAD, COMMDDORE Y SPECTRUM 

7605 REM ********************** *********************** ********** 

7606 REM * 

7607 REM * VARIABLES QUE HAY QUE PASARLE A LA RUTINA 

7608 REM * — 

7609 REM * 

7610 REM * T* = HORA QUE SE QUIERE CONVERTIR. CON FORMATO* 


76U 

REM * 











7612 

REM * 







hh i mmi es 
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7613 REM * * 

7614 REM # EL RESULTADO SE RETORNA EN R* * 

7615 REM * * 

7616 REtl * VARIABLES USADAS INTERNAMENTE % 

7617 REM $ — * * 

761 B REM * * 

7617 REM I Mí * VARIABLE QUE ALMACENA LA HORA * 

7620 REM * Mí « VARIABLE OUE ALMACENA LOS MINUTOS * 

7621 REM * H = VARIABLE QUE ALMACENA LA HORA * 


7622 REM * M » VARIABLE QUE ALMACENA LOS MINUTOS * 




Htn * HS 

7624 REM * Bf 

= NOS DICE 

= NOS DICE 

SI ES POR LA MARAÑA, TARDE O NOCHE 
SI ES POSITIVA G NEGATIVA LA HORA 


1 

* 










7625 REM * C* * "Son lafs) » $ 

7626 REM * D* = NOS DICE SI LAS HORAS SON PASADAS * 

7627 REM * Z = CONTADOR DE BUCLE * 

7620 REM * * 

7629 REM ##* *************** ****##1 ******* ** ********** ************ 

7630 REM 

7631 IF T**"" THEN LET R*="5IN HORA M s RETURN 

7632 LET A»*" de la mañana" 

7633 LET H*=LEFTf < T* f 2) ( LET H=VAL<H*> 

7634 LET M**MID* ÍT* P 4, 25 e LET M^VALÍMt) 

7635 IF H> 12 THEN LET H=H-12iLET A*=" de la tarde" i IF H>B THEN LET A*-=" de la no 
che" 

7636 LET B*^" y "jLET C**"Soh laí«* " 

7637 IF M>34 THEN H-H+l+12* ÍH«Í25 iM=60’MtLET B**=" menos *» 

763B RESTORE 7642 

7637 FOR 2” 1 TO H 

7640 READ Ht 

7641 NEXT 2 

7642 DATA "UNA", "DÚB" p "TRES" , " CUATRO " p "CINCO", "SEIS" , "SIETE" f "OCHO" , "NUEVE", "D JE 
Z", "ONCE", 'DOCE " 

7643 LET R**C*+H*+BÍ 

7644 LET D*=" pasadas" 

7645 IF M/5=INT ÍM/5) OR LEFTt (Rt, IK >”S" THEN 0*=" " 

7646 LET M=INT CM/55 15-5* ( Bt-" menos " AND í M/5< >INT ÍM/5Í) > a LET M*=STR*ÍM) 

7647 IF M*=" 30" THEN LET M*='mecjia" 

7648 IF M**" 15" THEN LET M**"cuarto" 

7649 LET R$=Rí+M*+D*+Af 

7650 RETURN 
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Fases del desarrollo del primer 


ARA los ya iniciados en la 
construcción de prototipos, 
con las indicaciones apunta- 
das en los dos primeros 
apartados es posible que 
fueran capaces de realizar 
el montaje de la tarjeta de 
ampliación de puertos de 
entrada/sanda sin ningún contratiempo, Para 
los que comienzan a lidiar en esta arena va- 
mos a describir con más detalle cómo se dise- 
ñan y se realizan los montajes de prueba en 
el típico taller que todo buen aficionado a la in- 
formática y a la electrónica debería tener. En 
un número próximo describiremos también 
cómo montarse el taller y de qué herramien- 
tas disponer. 

El diseño comienza con la descripción 
orgánica y funcional del dispositivo que de- 
seamos montar, empleando para ello diagra- 
mas de bloques y dibujos de las conexiones ló- 
gicas entre los componentes. Después nos 
planteamos sobre qué sistema físico lo vamos 
a montar: circuito sin soldaduras, circuitos de 
tiras, circuito impreso o cualquier tipo de mon- 
taje con el que tengamos práctica y del que 
dispongamos de los medios materiales. Con- 
viene también hacer un plano físico de la co- 
locación de los componentes, cortes, hilos, co- 
nectares y demás detalles. Después se reali- 
zan las conexiones oportunas, la soldadura de 
los circuitos y la fijación de las partes mecá- 
nicas. A continuación es necesario verificar 
que lo montado corresponde a lo que se des- 
cribió en los dibujos teóricos, comprobando 
las conexiones una por una para luego no lle- 


proyecto 



varse sorpresas. Se verifican especialmente 
las conexiones a las alimentaciones y a las lí- 
neas de conexión a los buses, pues estas sue- 
len ser las partes más delicadas para el fun- 
cionamiento general del sistema. Comproba- 
das concienzudamente las conexiones llega la 
hora de la verdad y enchufamos el equipo al 
ordenador, estando todo apagado, por supues- 
to. Aplicamos tensión y en principio todo tie- 
ne que funcionar como siempre. Cargamos un 
programa de tests de la parte añadida y veri- 
ficamos dinámicamente cada una de las seña- 
les de la interfaz, hasta conseguir los niveles 
o las formas de onda apropiadas. 

Veamos en el ejemplo propuesto de la 
tarjeta de ampliación de puerto de entra- 
da/saíida cómo se realiza cada una de las fa- 
ses. Daremos los detalles y las fotografías de 
la realización para ZX-Spectrum, pero en su 
mayor parte es válido para los otros ordena- 
dores. Solamente es necesario cambiar la par- 
te de decodificación de direcciones. 

Para la tarjeta de ampliación de puer- 
tos el diagrama es muy simple: 



Fíg, L Diagrama de bloques de la tarjeta ampliación de puertos 
E/S . , 

En el diagrama de bloques podemos 
distinguir: 
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El conector de expansión del ordena- 
ó:r Es diferente para cada una de las máqui- 
r.as Presenta todas las señales necesarias 
p ara poder ampliar el número de dispositivos. 

Bus de datos. Es un conjunto de 8 hilos 
dentro del conector de expansión que propa- 
ra ¡os datos entre las diferentes unidades. Es 
de tipo bidireccional, 

Bus de dirección. Es un conjunto de 1 6 
= 20 hilos dentro del conector de expansión 
rae presenta la dirección del dispositivo al 
rae se dirige la unidad central en sus transfe- 
rencias. 

Decodificador de dirección. Determina 

ruándo un dispositivo ha sido direccíonado 
p or la unidad central, produciendo un pulso, 
rae se emplea para activar la transferencia, 

Registro de salida. Formado mediante 
estables de tipo D, se cargan con la informa- 
::ón del bus de datos al producirse en el bus 
re direcciones la dirección del puerto de sa- 
lida. 

Amplificadores de entrada. Formado 
mediante puertas de tres estados, transfieren 
el bus de datos la información existente en sus 
entradas al producirse en el bus de direccio- 
nes la dirección del puerto de entrada. 

Sobre este dibujo se suele también mar- 
rar el número de hilos de cada bus de seña- 
es. el sentido de las transferencias y a veces 
alguna característica particular del diseño, 
romo puede ser un pulso de sincronismo ex- 
'erior o una señal de referencia. 

Se suele denominar diagrama lógico 
para diferenciarlo del esquema real, que sue- 
le denominarse diagrama físico. En este dia- 
grama lógico describimos las conexiones en 
su forma teórica, cómo deberían ser. Descri- 
bimos cada componente mediante un símbolo 
que pueda ser interpretado mediante un gol- 
pe de vista por cualquiera que conozca este 
lenguaje". Hay varias escuelas y normas de 
descripción de componentes que pretenden 
ser los más descriptivos. Para los componen- 
tes sencillos como puertas y biestables hay 
casi acuerdo, siendo los símbolos más usados 
los propuestos por el IEEE y son los que usa- 
remos en nuestras descripciones. Para los 
componentes de alta integración usaremos 
casi siempre bloques rectangulares con las 
entradas a la izquierda, las salidas a la dere- 
cha y las señales de control y alimentación en 
la parte superior o inferior según resulte más 
apropiado. Es importante recalcar que los dia- 
gramas deben ser usados para describir y 


ayudar a entender los circuitos, por lo que 
todo lo que permita una descripción más cla- 
ra deberá recalcarse y todo lo que pueda con- 
fundir deberá suprimirse o presentarse en 
otro dibujo adicional. Por desgracia hay más 
excepciones que reglas, por lo que muchas 
veces resulta arduo el entender lo que un cir- 
cuito significa, aunque vaya ilustrado con pro- 
fusión de comentarios. 

En general, las líneas que se cruzan no 
llevan conexión eléctrica a menos que se in- 
dique mediante un punto negro. 

El diagrama lógico ya fue presentado 
en el primer capítulo, por lo que lo reprodu- 
cimos aquí a menor tamaño. 



SALIDAS 
0 


* 


SALIDAS 

1 


I 


ENTRADAS 

0 


* 


ENTRADAS 

I 


I 


F¡g. 2. Diagrama lógico de la tarjeta de ampliación de puertos 
de E/S. 

Para un montaje rápido y que permita 
realizar cambios fácilmente se emplean tarje- 
tas como la de la fotografía. 


29 





EL TALLER DEL HARDWARE 




Fig. 3. Solución sobre circuito sin soldaduras. 


A esta tarjeta se le ha conectado el co- 
nectar hembra que ha de enchufarse al conec- 
tar de expansión del ordenador. El conector 
del Spectrum presenta señales en las dos ca- 
ras, por lo que es necesario utilizar un conec- 
tor con doble fila de contactos, En la fotogra- 
fía puede apreciarse que solamente se han uti- 
lizado aquellos contactos que son necesarios 
para esta montaje. 

Las conexiones se hacen mediante hilo 
sencillo recubierto de plástico de colores, con 
lo que la identificación se puede realizar rápi- 
damente y sin confusión, 

En la tarjeta montada sobre el circuito 
sin soldaduras, solamente se presenta un 
puerto de entrada, otro de salida y el circuito 
de decodificación de dirección, Realmente se- 
ría de poca utilidad montar todo el circuito 
pues solamente es útil para verificar el siste- 
ma cuando sea la primera vez que ensayamos 
un circuito, o para ver sus posibilidades lími- 
te, como pueden ser los valores de consumo, 
niveles o forma de las señales. 

Para este tipo de montajes podemos di- 
bujar el plano con indicación de las conexio- 
nes de entrada y salida para recordatorio de 
los resultados del experimento, pues la tarjeta 
necesitaremos utilizarla en otros ensayos, una 
vez que hayamos trasladado el circuito a un 
montaje definitivo, 


■ Solución sobre circuito impreso 
de tiras 

Empezaremos por dibujar el esquema 
sobre papel cuadriculado, a ser posible a es- 


cala doble aproximadamente, para trabajar 
más cómodamente, pero sin olvidar dibujar to- 
dos los elementos a escala. 

Marcamos las posiciones de los circui- 
tos integrados y de los demás componentes 
mediante puntos negros: mediante un símbolo 
especial indicaremos la patilla número 1 . Las 
tiras que deben ser cortadas, por pertenecer 
a nodos diferentes, las marcaremos con un 
aspa, 

Las líneas de conexión horizontal se su- 
ponen que son las tiras propias del circuito, 
por lo que no se marcarán. Anotaremos los 



Fig. 4. Dibujo de las conexiones para circuito de tiras . 
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r.ombres de las señales principales para faci- 
litar la revisión y el seguimiento de las prue- 
bas. 

El dibujo se suele hacer normalmente 
considerando que se ve desde la parte de los 
componentes y, por tanto, del lado de los 
puentes. Hay que tenerlo presente a la hora 
ce realizar los cortes entre pistas, pues al cam- 
elar de lado podríamos cortar donde no 
corresponde. Para facilitar la identificación 
cel punto, pueden marcarse con rotulador los 
puntos donde corresponda cortar y luego cor- 
tar todos a la vez. 

Los cortes se realizan perfectamente 
con una broca de 4 a S milímetros de diáme- 
*ro a la que se añade un mango para poder 
manejarla mejor. 

Las conexiones entre pistas paralelas se 
realizarán mediante puentes. Si la línea de co- 
nexión es vertical, el hilo puede ser desnudo, 
3i la línea de conexión es entre puntos que no 
están en la misma vertical, deberá usarse hilo 
aislado. La conexión puede hacerse por el 
lado de los componentes o por el de las solda- 
duras, pero es mejor por el lado de los com- 
ponentes para dejar diáfano el otro lado y fa- 
cilitar las soldaduras. Las conexiones utilizan- 
do hilo vertical presentan una apariencia me- 
;or, pero requieren mucho más espacio que si 
usamos hilo aislado. Además, los electrones 
saben buscar su camino, aunque no sea recto, 

En la fotografía puede verse la solución 
sobre circuito de tiras de la tarjeta de amplia- 
ción de puertos de E/S. 

Puede apreciarse cómo va soldado el 
conector mediante los terminales inferiores. 
Las señales de la fila superior de contactos se 
toman a través de hilos directamente desde el 



A) 


conector. Solamente se han colocado los zóca- 
los de los puertos de arriba para permitir ob- 
servar la colocación de los hilos de alimenta- 
ción y masa por en medio de las patillas de los 
circuitos integrados. 

Este tipo de montaje, como puede apre- 
ciarse, es muy laborioso y solamente se justi- 
fica para prototipos únicos. La placa de circui- 
to impreso de tiras se ha cortado de un placa 
de mayor longitud para contener los circuitos 
necesarios para este montaje. Una sierra de 
marquetería es idónea para cortar el circuito 
impreso. Hay otras presentaciones de circui- 
tos previamente cortados, dejando grupos de 
tres agujeros contiguos unidos. 

Solución con hilo enrollado 

Para montajes fiables y de gran dura- 
ción, cuando el número de unidades no es 
muy elevado se emplean tarjetas de circuito 
impreso con perforaciones en todos los puntos 
donde puedan ubicarse patillas de circuito. Se 
introducen zócalos de circuito integrado de 
patillas muy larga, de sección cuadrangular 
con los cantos vivos. Sobre estas patillas se en- 
rollan los hilos con los que se hacen las co- 
nexiones. 

Para el desarrollo de circuitos con esta 
técnica se comienza por describir las conexio- 
nes mediante un diagrama lógico, como ya vi- 
mos antes. Luego se distribuyen los circuitos 
integrados sobre la tarjeta de forma que las 
distancias entre componentes resulten míni- 
mas. Para esta fase es comente emplear el or- 
denador, pues fácilmente puede realizar lo 
que a nosotros nos llevaría horas: calcular la 
longitud del cable para realizar todas las co- 



B) 


Fig. S. Solución sobre circuito impreso de tiras, Se muestran ambas caras. 
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nexiones para una ubicación de componentes 
dada. Por esto es frecuente realizar una tabla 
de conexiones indicando: 

— Nombre de la señal 

— Pastilla y pata origen. 

— Pastilla y pata destino. 

— Número de secuencia dentro de la señal. 

— Longitud de la conexión. 

Con esta tabla introducida en el orde- 
nador, la tabla de ubicación de componentes 
y la descripción geométrica de cada compo- 
nente, el ordenador puede ayudarnos a mejo- 
rar la distribución de componentes de un dise- 
ño. 

Daremos más detalles cuando tratemos 
el tema de diseño de circuitos impresos por 
ordenador. Hay máquinas que a partir de las 
tablas indicadas realizan el montaje con hilos, 
utilizando para ello una técnica similar a la em- 
pleada en los registradores gráficos: la máqui- 
na toma el hilo de la longitud indicada, coloca 
el cabezal frente al punto origen, enrolla el 
primer terminal, desplaza el cabezal hasta el 
punto destino y enrolla el segundo terminal. El 
cabezal eléctrico es bastante costoso. Puede 
realizarse el enrollamiento mediante una 
herramienta manual, pero al no poder dar una 
fuerza de apriete uniforme, el resultado no es 
igual que mediante la máquina de enrollar. 



Fig. 6. Montaje mediante hilo enrollado sobre tarjeta de proto- 
tipos IBM -PC. 


El montaje mediante hilo enrollado re- 
sulta de gran robustez y fiabilidad, siendo bas- 
tante caro frente a otras soluciones de tipo afi- 
cionado, Presenta otra ventaja adicional y es 
que resulta bastante fácil recablear un circui- 
to para reparar un error o añadir un circuito, 


Se desenrollan los pines afectados y se reca- 
blean para realizar el nuevo circuito. 

Solución sobre circuito impreso 

Si el número de circuitos a realizar es 
numeroso, la solución más económica es colo- 
car todos las conexiones posibles sobre el mis- 
mo soporte. 

Para ello se emplean circuitos impresos 
de 1, 2 o más capas, según las necesidades, 

El diseño con circuito impreso implica 
todos los pasos indicados para los procedi- 
mientos anteriores y además el diseño físico 
de la distribución de pistas y su representa- 
ción gráfica con la calidad adecuada para su 
posterior representación mediante técnicas 
fotográficas o serigráficas sobre un soporte 
metálico que pueda trabajarse física o quími- 
camente. Es cada vez más frecuente el encon- 
trar aficionados que son capaces de generar 
sus propios circuitos y procesarlos química- 
mente hasta doble cara. Existen programas 
para ordenadores personales que ayudan en 
la preparación de los circuitos impresos. Mos- 
tramos un ejemplo del circuito de ampliación 
de puertos de E/S realizado para dos caras. 
Los contactos de la capa superior deberán ha- 
cerse mediante puentes. Para hacerlo a doble 
cara y taladro metalizado es necesario dispo- 
ner de equipo muy costoso y que no se justi- 
fica para trabajos de poco volumen. 

No es necesario recalcar mucho que la 
solución idónea para añadir equipos periféri- 
cos a nuestro ordenador personal es median- 
te circuito impreso. 

El esquema de la figura ha sido realiza- 
do con la impresora de tipo matricial de un or- 
denador personal, mediante un programa de 
diseño gráfico. 

La impresora genera la plantilla a doble 
tamaño del original, realizando varias pasadas 
para conseguir suficiente contraste. Es nece- 
sario reducir fotográficamente el dibujo para 
obtener el negativo que por contacto permiti- 
rá generar el circuito impreso. El circuito es 
funcionalmente igual al realizado mediante 
circuito de tiras. Es necesario completar el 
montaje con la conexión de las señales de con- 
trol de los puertos desde los circuitos de de- 
codificación, mediante hilo aislado. 

■ Ensayos de la tarjeta 

Repasaremos todas las conexiones com- 
probando la continuidad de los circuitos, en- 
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ñg 7. Esquema de plantillas para circuito impreso. 
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tre los terminales del conectar y las patillas de 
los zócalos. 

Es también conveniente comprobar el 
aislamiento entre los contactos próximos, pues 
a veces las soldaduras pueden presentar hilos 
muy finos que al encontrarse recubiertos con 
restos de resina no se aprecian a simple vista. 
Igualmente entre la alimentación de +5 voltios 
y masa debería haber aislamiento completo 
hasta que se coloquen los componentes. Si se 
coloca algún condensador de varios microfa- 
radios entre alimentación y masa, se observa- 
rá que al medir la resistencia entre +5 y masa 
parece que al principio hay baja resistencia, 
que va aumentando al principio rápidamente 
y luego con mayor lentitud, Es simplemente el 
efecto de carga de los condensadores a tra- 
vés de las resistencias del polímetro. 

Colocaremos los circuitos del decodifi- 
cador de direcciones y conectaremos la tarje- 
ta, con la alimentación apagada. Los circuitos 
integrados son muy delicados en cuanto al 
sentido de la orientación. Normalmente pagan 
con la muerte súbita la aplicación de la alimen- 
tación en sentido contrario, Algunos circuitos 
de potencia pueden llegar a soltar un poco de 
humo, pero generalmente sufren calladamen- 
te y a lo sumo se calientan a temperaturas fue- 
ra de lo habitual, Aplicaremos la alimentación 
y comprobaremos que el ordenador arranca 
correctamente. Con un pequeño programa po- 
demos activar el decodificador produciendo 
la dirección correspondiente. 

Deberá aparecer un pulso por cada ac- 
tivación. 

A continuación añadiremos los circuitos 
de puerto de salida, siguiendo siempre la se- 
cuencia obligada de apagado, desconexión, 
inserción de componentes, conexión, encendi- 
do. Con el programa de tests de las direccio- 
nes produciremos secuencias de niveles esta- 
bles, con 0 y 1 cada uno de los bits del puerto. 
Luego produciremos trenes de pulsos de baja 
frecuencia para que puedan observarse me- 
diante polímetro o diodos LED, Es el momento 
de verificar que cada bit sale por donde le 


corresponde, es decir, que no hemos inter- 
cambiado ningún hilo. 

Por último, completaremos los circuitos 
de los puertos de entrada. La verificación re- 
quiere la exploración continua del puerto, con 
presentación en pantalla del resultado de la 
lectura, mientras activamos las entradas con 
señales 0 y 1, producidas mediante la co- 
nexión de una resistencia de, por ejemplo, 220 
ohms, a +5 voltios y a masa, Al conectar las se- 
ñales de prueba a las entradas deberá tener- 
se la precaución de no tocar en otras patillas 
diferentes. Si la prueba se hace con resisten- 
cias de 220 ohms o superiores, no es probable 
que se dañe el circuito, pero es muy posible 
que si el punto tocado es del bus, el programa 
se vaya por los cerros de Ubeda. 

Recomendaciones finales 

Es recomendable extremar las precau- 
ciones, para evitar que haya que lamentarse 
por una conexión incorrecta o un circuito co- 
locado al revés, 

Colocar en los conectores alguna pla- 
quita de orientación para que sea imposible la 
inserción en sentido contrario al debido. 

Verificar que la línea de masa está co- 
nectada en todas las tarjetas utilizadas, y la ali- 
mentación es la interna del ordenador sola- 
mente si los circuitos son de bajo consumo, 
Disponer de otra alimentación suplementaria 
para la conexión de periféricos de consumo 
elevado como motores, relés y similares. La 
alimentación deberá estar limitada en corrien- 
te y con fusible de protección. 

Utilizar siempre circuitos de aislamien- 
to mediante fotoacoplador o relé si el disposi- 
tivo de carga se conecta a la red. Lo mismo es 
aplicable si las señales a medir son de muy 
bajo nivel. 

Con algunos pequeños instrumentos 
montados por nosotros mismos, podemos veri- 
ficar cómo opera la tarjeta hasta los más finos 
detalles. Lo iremos viendo a medida que nos 
adentremos en la práctica de la circuitería 
asociada a nuestro ordenador personal. 
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NATURALEZA T TECNOLOGIA 

Anatomía humana. Los huesos 





OS huesos constituyen el 
sistema fundamental de sos- 
tén del organismo, así como 
los elementos pasivos del 
movimiento. Son cada una 
de las piezas duras y resis- 
tentes, formadas por sustan- 
cia orgánica y sales minera- 
les, y envueltas por una membrana fibrosa que 
forman nuestro esqueleto. 

En relación con su forma podemos dis- 
tinguir tres tipos: 

1) Huesos largos. Formados por una 
caña de hueso (llamada diáfisis) y dos extre- 
mos (llamados epífisis). En su interior existe 
una cavidad central o conducto medular. Un 
ejemplo es el fémur, 

2) Huesos anchos. Constituidos por 
dos láminas de tejido óseo compacto entre las 
que se interpone tejido óseo esponjoso. Un 
ejemplo son los huesos de la bóveda del crá- 


neo. 

3) Huesos cortos. Sus tres dimensiones 
son casi iguales. Están formados por tejido es- 
ponjoso revestido de una débil capa de tejido 
óseo compacto, 

La membrana fibrosa que reviste los 
huesos se llama periostio y es la que confiere 
vitalidad al hueso. 

Los huesos se engranan entre sí por me- 
dio de articulaciones, y las superficies óseas 
en contacto están recubiertas de cartílago; la 
cápsula articular es un manguito fibroso que 
rodea a la articulación, que a su vez está re- 
vestida interiormente por la membrana sino- 
vial. El líquido sinovial llena la articulación y 


hace la función de lubricante en el roce de las 
superficies óseas articulares, La cápsula que- 
da reforzada por los ligamentos. 

Una vez conocido el fundamento del 
aparato locomotor, creemos que te resultará 
interesante el del conocimiento de sus trauma- 
tismos. Posiblemente te haya intrigado el ver 
a algún amigo con una escayola, ¿Qué le ha su- 
cedido?, ¿cómo lo notó?: 

— Si tu amigo ha sufrido un esguince o 
torcedura ha sido porque debido a un movi- 
miento forzado una articulación se ha abierto 
más de sus límites fisiológicos. Las superficies 
articulares pierden su contacto sólo de modo 
pasajero y una vez desaparecida la fuerza que 
na actuado, recobra su posición primitiva, 
quedando lesionada alguna parte blanda. 

Al ocurriríe sintió dolor, se le inflamó la 
articulación por el derrame, le apareció un 
cardenal y tenía dificultad para realizar el mo- 
vimiento. 



— Si tu amigo ha sufrido una luxación 
ha sido por la salida de los huesos de su sitio, 
pero, a diferencia del esguince, esta separa- 
ción es de modo permanente. 

Los síntomas que tuvo fueron una gran 
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deformidad, un dolor intenso al presionar y la 
imposibilidad del movimiento. 



Fig. 2 . Ejemplo de laxación. 

— Si tu amigo ha sufrido una fractura, 
se le ha roto el hueso, total o parcialmente. Hay 


muchos tipos de fracturas, en general todas 
son muy dolorosas. 



Ante cualquiera de estos casos hay que 
acudir al médico, ya que es importante que los 
huesos queden bien, son nuestro aparato loco- 
motor. ¡Cuídalo!. 

El ordenador te va a ayudar a recordar 


algunos nombres importantes de huesos del 
aparato locomotor. 

El funcionamiento de este programa 
es muy sencillo; es un test al que debes res- 
ponder con el número de la opción correcta. 


10 REM **************************** ***** 
20 REM ** PROGRAMA DE ANATOMIA HUMANA #* 
30 REM *tt PARA ZX-SPECTRUM W* 

40 REM ********************************* 
SO RESTORE: FLASH Qi CL5 : PDKE 23609,255 
60 BURDER 1: PAPER l! INK 6 
70 DIM Ní (20,10) i DIN N£20,2> 

80 FOR 1-1 TO 20 

90 READ N(L1) . N ( I , 2 ) , m ( I ) 

100 NEXT I 

110 REM *********************** 

120 REM ** DIBUJO CABEZA ** 

130 REM *********************** 

140 FLOT 1 6 T 148 

150 DRAW 12,9, “4, 1S 

160 FÜR 1=1 TD 6 

170 READ A , B 

180 DRAW A.B 

190 NEXT I 

200 CIRCLE 252 152 T 1 

210 REM *********************** 

220 REM ** DIBUJO TRONCO *.* 

230 REM *********************** 

240 F'LQT 16,148 


250 FOR 1=1 TD 9 
260 READ A , B 
270 DRAW A „ B 



280 

NEXT 1 






290 

300 

310 

PlDT 31.100: DRAW j 
PLOT 31,100: DRAW - 
PLOT 31,100 

i 

i : DRAW 4 
-4: DRAW 

320 

330 

FQR 1=1 TO 
READ A t B 

22 





340 

DRAW A ,8 
NEXT 1 
















,“1 

1,-2 
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. ^ v* • • r- 


360 PLOT 19,147 
370 FGR 1=1 TO 4 


380 READ A ■ B 

390 DRAW A , B 








400 NEXT I 

410 REM *********** c ******** 

420 REM #* COSTILLAS ** 
















430 REM * ****** ******* ***** 
440 PLOT 21,31: DRAUl 5,-2 
450 PLOT 22*125: DRAW 5,-2 
460 PLOT 22 . 122: DRAW 5,-2 
470 PLOT 23,119: DRAW 5,-2 
4S0 PLOT 21*128: DRAW 5,-2 
490 PLOT 23,112: DRAW -6,19 
500 PLOT 12,47 
510 REM **************** 

520 REM ** PIERNA II 


530 REM **************** 

540 FOR 1=1 TO 11 

550 READ A , B 




560 DRAW A , B 

570 NEXT I 






580 REM **************: 

*********************** 


590 REM ** PONER PUNTOS PARA PREGUNTAS ** 




600 

REM ************************************* 





610 

620 

FOR X=i Tu 20 

CIRCLE INK 2; N<X,ií,N(X 

,2) ,2 







630 

640 

650 

LET P= INT £RND*3) + 1 

i CT 







REM ************************** 







660 

670 

REM ** PONER PREGUNTAS ** 

REM ************************** 







680 

690 

700 

FOR 1=1 TO 3 

PRINT AT 1*2+5, 14; i 

PRINT AT P*2+5 t 16: "-" sN* 









ÉH) 







710 LET P=P+1: 1F F-4 TREN LET P= 1 
720 LET H=H+1: IP H>20 THEN LET H=H-5 
730 NÉXT I 

740 INPUT "CUAL ES LA CORRECTA?" ; D 

750 IF D-P THEN PRINT AT 20 *12; FLASH i:" CORRECTO " ¡POR 7 = 1 TO 5: BEER 

,15,2: NEXT 1% GOTO 770 

760 PRINT AT 20,12: " INCORRECTO " : FDR 7=1 TO 100: NEXT 2; LET X=X-1: BOTO 

780 

770 CIRCLE INK 7 5 N í X * 1 ) , N í X , 2) , 2 
780 NEXT X 
790 FLASH 1 

BOQ PRINT "QUIERES INTENTARLO OTRA VEZ?" 

810 LET VS=INK£Y*: IF 0*="" THEN GOTO 810 
820 IF V$=''S" OR THEN GOTO 30 

030 GOTO 9999 

840 DATA 25, 159 , "FRONTAL" , 14, 159, "PARIETAL" „ 14 . 151 „ ■'OCCIPITAL" , 12, 130, "HOMOFLAT 
O " , 24 t 126, "COSTILLAS" ,27 , 145 , "MAX ILARES" .18,121. "HUMERO” -17> 142, "CERVI 
CALES" , 25 , 106, , 'CUBITÜ h M9, 95," IL1 ACO- 

050 DATA 12-9, "TARSO" .26,131, "ESTERNON" ,16, 136 , "OLA VI VULA" ,13,86. "COX 15" ,28,150 
, "NASAL" ,34,97. "FALANGES" , 14 , 25 , " PERONE" , 17,46, "TIBIA" , 1 9 , 71 , "FEMUR" *1 
9,101, "VERTEBRAS 11 

860 DATA 1 ,-5,-1, -3, 1,-3, -A, -4, “8, 2, 1,5 

970 DATA -I , -9, -5.-7. 1 .-12, 5, 8,-1 ,2,4. -19,4, I ,8,-12* 5, -2 

8B0 DATA — 12, 1 1 ,2 , — 1,5 , 6, -4 ,-4 , -5,4 , -4, -6 , -5 , - 1 , - 1B„ -3 , 1 , 5 , 17 , -2, 15 , -1 , 0 , 

O *3,3,6, —4 , 0 , — i , -4 , - 1 , 6 . 4 , 3 
890 DATA 5 , 0 , -4,0, 1 , 10,-5* 14,-1 , -Si 8--B, 4 *-12, -3,-4 

900 DAT A 6,2* — 3 . “36 , 6 « —3 * 6 » —2 . — 19, 1 , 3 , 6 , 4 , 0 , O , ó 1 , o , , O , '”2 -j , — 1 , y * ■ 1 -3 7 


Programa L Test de huesos (versión Spectrum). 


Foto i. Se írafa de descubrir el Meso frontal. 
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El programa consta de dos partes; en la 
primera se realiza el dibujo del esqueleto hu- 
mano, en la segunda se realiza el test propia- 
mente dicho. 


■ Modificaciones para otros equipos 

Vamos a ir viendo qué órdenes es ne- 
cesario que varíes para adaptar este progra- 
ma a tu ordenador. 

Elimina las órdenes FLASH, POKE, INK, 
BORDER, PAPER y BEEP que encuentres. Se 
utilizan para introducir características atracti- 
vas al programa, que puedes hacer luego a tu 
gusto; colores, música, parpadeos, etc, 

Ahora viene lo más difícil, el gráfico del 
esqueleto: 

1) Los PLOT sitúan un punto en la pan- 
talla y los DRAW trazan una línea de forma re- 
lativa, es decir, aumentan la coordenada en el 
valor especificado. 

PLOT 3,4 3 , 4 * 

IH5, J 

2) PLOT y DRAW con AMSTRAD. Fun- 
cionan igual si utilizas DRAWR (DRAWR 5,-3). 

Si utilizas el DRAW x,y tienes que dar 
coordenadas absolutas (DRAW 15,1 en el 
ejemplo). 

3) PLOT y DRAW en MSX, Funcionan 
del mismo modo si utilizas signos + y - al indi- 
car las coordenadas, es decir, en nuestro 
ejemplo sería: DRAW +5,-3. Si omites los sig- 
nos, lo considerará como coordenadas absolu- 
tas. 

4) COMMODORE. Dependiendo de la 
versión que tengas, es posible que no dispon- 
gas de estas órdenes en el repertorio. En ese 
caso tendrás que utilizar una sentencia SPRI- 
TE o realizarlo mediante POKE. 


5) PLOT y DRAW en IBM-PC. No dis 
pone de PLOT, pero hay posibilidad de situar 
un punto en la pantalla con el DRAW si se le 
añade el comando B delante de la coordena- 
da, para indicar que desplace sin dibujar la lí- 
nea. 

Por otra parte, si las coordenadas las 
das en modo relativo, no olvides los signos + 
y - al igual que en MSX. 

Otras sentencias que aparecen y debes 
cambiar son las que tienen PRINT AT: 

1) En ZX-SPECTRUM es PRINT AT lí- 
nea, columna. 

2) En AMSTRAD hay que situar prime- 
ro el cursor y luego se utiliza un PRINT. 

' Será LOCATE columna, línea, por lo 
que debes invertir el orden de los argumen- 
tos en el programa. 

3) MSX también utiliza el LOCATE co- 
lumna, línea. 

4) COMMODORE no tiene sentencia 
para localizar el cursor en todas las versiones; 
por tanto, debes recurrir si es tu caso a: 

POKE I024+columna+40*fila, 

5) IBM utiliza LOCATE línea, columna. 

Por último, veamos la generación de nú- 
meros aleatorios. 

AMSTRAD utiliza para generar la se- 
cuencia aleatoria un RANDOMIZE. Te aconse- 
jamos utilizar el RANDOMIZE TIME. 

MSX y COMMODORE añaden un pará- 
metro para la generación de números, Sustitu- 
ye la sentencia por: 

LET P= INT (RND(1)*3)+1 

IBM necesita un RANDOMIZE TIME o 
RANDOMIZE n, siendo n un número entre 
-32767 y 32768. 

Queda recordarte que en el ZX-SPEC- 
TRUM al dimensionar una matriz alfanumérica 
es necesario darle la longitud, cosa que no 
ocurre en los demás casos. Y que termina el 
programa con un GOTO 9999, que será susti- 
tuido por un END. 


10 PEM ***íí~+*************************** 
20 REM ** PROGRAMA DE ANATOMIA HUMANA ** 
30 REM fc»*********#***********#***#^**** 
qo DIM rm2L3í DIM U(20.2~’' 

50 SCREfeN I 
60 CLS 

70 COLOR 9,0 

80 FOR I = f TO 20 

*0 READ NCl . 1 > r N t I ,23 *NS í I > 

25 LET M'T , 2 ' = -N I , 2> +31 6- I 30 ) 

100 MEXT I 

110 REM fr***#-***#^*»»*** ******* 

120 REM ** DIBUJO CABEZA ** 

1 30 REM a*****#***##»**##*»#*#* 


38 










140 PSET Cié, 40) 

160 FOR 1=1 TO 10 

170 READ A*,E ¡LET B=B*í-l> ;L£T B*«STP 











í (EX 









175 LET DlBt="M"+A$*" , M +Bí 

ISO DRAW DI B# 














190 NEXT 3 

210 REM ********** J * ****** #**•*+* 

220 REM ** DIBUJO TRONCO ** 


















230 REM *******************^*- 1 -* 

24D p SET <16, 403 











250 POP 1=1 TO 9 

260 F'EAD A$,B: LET B=B*(-1>: lET B#=STR#ÍE 
265 LET DIB#= J, M"+Af + " . ”+B# 

3): 











270 DRAW DIB* 

23 n N£KT í 












290 PSET 1 3 1 ,,8S ; DRAW "M+1,+4"; DRAW " 
30 0 PSET <3 i, 83): DRAW "M-j , A 4" : DRAW " 

M+4 , + 1 " 

M+l . +2" 










33 0 3 SET í 31 ,88) 

320 FOR 1-1 T0 22 

330 PEAD At.Bí LET B-B *í-l ! : LE T Bt“STRiíB> 
335 LET DI B*-"M |, +AS+ m , 

340 DRAW O IBS 
350 NEXT I 

sxd psrr ■ í * , 4n 

370 POP 1=1 TO 4 

380 READ A*,B; LET 8=8*^ -i) ¡ LE T &f=STpí(8 


3S 5 L ET D l BS- "" M “ + A# + " , 
390 DRAW Dr B# 

" +EÍ- 



400 NEXT T 





4Í0 REM a****************** 

420 REM ** COSTILLAS ** 

430 REM ******************* 

440 PSET (21 1 57) i DRAW "M+5,+2” 
450 PSET < 22 , 63) í DRAW "M+5*+2" 
460 PSET <22,66); DRAW "M+5,+2" 
470 PSET <23,67): DRAW "M+5,+2' 1 


4SO PSET <21.60); DRAW "M + 5,+2 Jr 
490 PSET (23.74) i DRAW , -1 9" 1 

500 PSET <12.141) 

510 REM **************** 

520 REM ** PIERNA ** 

53Ü REM ***********4**** 

540 POP 1 = 1 TO 11 

550 READ Af.E: LET B=Éfc<-í>: LET B$=STR*CB> 
555 LET D18S="H ,l >At+ V f "+B4 
560 DRAW DIB# 

570 NEXT } 

530 REM ************************************* 

590 REM ** PONER PUNTOS PARA PRESUNTAS *4 

600 REM ********#***************#**-*******4-** 

610 POR X=I TO 20 

620 GIROLE CN<X , 1) ,N<X , 2 > ) , 1 , 1 5 

630 LET P= INT í RNP*3> +■ 1 

640 LET H=X 

650 REM ************************** 

660 REM ** PONER PRESUNTAS ** 

670 REM ************************** 

6S0 FOR I“Í TO 3 

69 0 LOCATE 1*2+5 ,25 SPRINT l 

700 LOCATE P*2+5 , 27 ; PRJNT " - |l ; Ní< H) 

710 LET P= P+í; IF P-4 THEM LET p=i 
720 LET H~H* 1 ; IF H>=20 THEM LET H-H-iQ 


730 NEXT I 

740 LOCATE 20 , 1 3 : INPirr "CUAL ES LA CORRECTA^ ' i O 
”50 IF D=P THEN LOCATE 20.12;PRINT " CORRECTO 

00 í NEXT Z: GOTO 770 

760 LOCATE 20 , 1 0 í P'ftl NT " INCORRECTO 


"¡FOR 2=1 TO 10 
s POR Z=1 TO 500 ¡ NEXT Zj 


LET ;<=X“Í : GOTO 730 
770 GIROLE (NO .1 : ,j ,N(X.2) ) ,1 . 0 
780 NEXT X 

300 PR INT "QUIERES INTENTARLO OTRA VEZ ?" 
310 LE T MMINKEVíi IF V#= un THEM COTO 310 
32ü IF V#~ " S" GR Vf="s" THEM COTO 50 


330 END 

340 DATA 25 ,159, "FRONTAL " ,14,159." PARIETAL (l , í : v 4 .151 , " O’CC : P I TAL H M 2 . 1 30 , 11 HO 
MOR LATO " .24,1 26 , " COST I L LAS " ,27.145," MAX. 1 LARES " ,18.121," HUME RÜ f 1 7 , i 4 2 

, CERVICALES " , 25 , 106 , 11 CUBITO ,r , 1 9, 95 , " I L1ACO 

350 DATA 12,?," TARSO " , 26 , 1 3 1 , 11 E ST ERNÜN % 1 6 , 1 36 , " CLAV I COLA " . 1 3 . Sé , " UD 

x¥z " ,23,150, "NASAL " , 34 , 97 , |J FALANGES " ,14,25, Ir PERONE ',17,46 

, "TIBIA " ,19,71 , 11 FEMUR % 19 , i . ft 1 . "VERTEBRAS 

359 DhTA -1 ,+15 1 +5,+4,+ó,+G í +4 ( -3 
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3<£t 

DATA 

+1 t -5 , — 1 


3 , + 1 . 3 j “ 1 j, * 

-4, -3,4-2, 

, + 1 



87.0 DATA *1 2, +5, +8,-! , + 2 , + 4 , -1 9 , + 4 , + 1 t + 8 , - 1 .2 , + 5 , -2 

880 DATA -12, + i 1 ,+2,-1 5, +6, -4, -4 ,“5 p +4 , -4 ,-¿,-5,-1 ,-13 ,“3, -12. -4,+i *+5, +17,-2, 
+13,-1 . +0**0, +3, +3, +4,-4, *0,-1 í -4 J -l, + á f + 4 í +3 
890 DATA + 5.+0 ,-4,+0,+i , + 10 , -5, + ■ ,-8,+8,-S ,+4 ,-12,-3,-4 

?0ü DATA +ó,+2 l -3,-3¿ f + 6 f -3, + 6,“2-,-l? F -i , + 3 , +¿ , +4 , +Q , +0 , +31 , -3 , +3 , +0 , -25 , - 1 ,-?• + 
25,+lS? 


Versión para /SM de^ programa i. 


MATEMATICAS 

Programa de números complejos 

Un número complejo es un número que 
consta de dos partes: 

— Una parte real, 

— Otra imaginaria. 

Una posible forma de interpretar esta 
descomposición es considerar el número com- 
plejo como un vector, cuya parte real es su 
proyección ortogonal en el eje X y la parte 
imaginaria su proyección en el eje Y, 

La letra i es la reprentación de V-l . 

Para ella tendremos: 


i = V-L 

P = — 1 

i 3 = -i 

i«= 1 

A partir de la cuarta potenciación esta 
secuencia se repite. 


Operaciones con números complejos 

Sumar y restar números complejos es 
sumamente sencillo; basta operar por separa- 
do las partes real e imaginaria. 

Sean dos números complejos: 

Z = a + bi 
W = c + di 

Siendo a,b,c,d números cualesquiera 
(positivos o negativos). 

Z + W=(a + c) + (b + d)i 
Z - W = (a - c) + (b - d)i 


El .producto es más complicado, pues al 
multiplicar i por i aparecerán potencias con 
las que hay que operar cuidadosamente, 

Z*W = (a + bi) (c + di) = 

= ac + adi + bci + bdi 2 = (ac - bd) + (ad + be) i 

La división obliga a introducir el con- 
cepto de conjugado de un número complejo: 

Sea W — a + bi 

Su conjugado (que se representa por 

W) es: 

W - a - bi 

Pues bien, para dividir dos números 
complejos hay que multiplicar por el conju- 
gado: 

a + bi __ (a + bi) (c - di) = 
c + di (c + di) (c - di) 

(a + bi) (c - di) _ ac - adi bci - bdi 2 
(c 2 + d 2 ) (c 2 + d 2 ) 

ac + bd be - ad • . 

(c 2 + d 2 ) (c 2 + d 2 ) 


El programa 

El programa realiza las operaciones de 
suma, resta, multiplicación y división de dos 
números complejos. Visualiza en pantalla la 
representación gráfica, tanto de los operandos 
como el resultado. Para esta representación 
realiza un cambio de escala para adaptarla al 
valor más grande en cada caso. 

El programa pide como datos: 

— La operación a realizar \). 

— Cada uno de los componentes de los 
dos operandos, 

El programa acepta cualquier número 
de decimales y opera con ellos; pero al impri- 
mirlos en pantalla los redondea a un único de- 
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cimal para evitar número indefinido de deci- 
males que podían aparecer al operar. 

Nota: Como tanto los operandos como 
el resultado se representan en la misma esca- 


la para dar una imagen gráfica más real, si al- 
guno de los valores es muy grande puede ha- 
cer que la representación de los otros sea ex- 
tremadamente pequeña. 


10 REM ********* ************ 

20 REM **NUMEPÜS COMPLEJOS** 

30 REM a******************** 

40 P9INT *' 

50 PRINT ■'**** NUMEROS COMPLEJOS ****" 

60 PRINT n ****#*#************************* ,l 
70 PAUSE 100: CLS 

SO PRINT "INTRODUCE LOS DATOS "¡ 

90 INPUT "OPERACION QUE QUIERE REALIZAR: ( +■ , - , * ,/) * ,X* 

100 IF AND AND X^O"*" AND X^OV") TREN GO TO 70 

110 INPUT "PARTE REAL DEL PRIMER NUMERO" ,A 

120 INPUT * PARTE IMAGINARIA DEL PRIMER NUMERO" , E 

130 INPUT "PARTE REAL DEL SEGUNDO NUMERO" *C 

140 INPUT "PARTE IMAGINARÍA DEL SEGUNDO NUMERO" , D : CLS 

ISO IF X*=* + D THEN 60 TO 200 

160 IF THEN GO TO 300 

170 IF X$="*" THEN GO TO 400 

180 IF X$="/ H THEN G0 TO 500 

200 PEM *********************** 

210 REM **** SUMA **** 

220 REM *********************** 

230 LET X=A+C 
240 LET Y~B+D 
250 GO TO 550 

300 REM *********************** 

310 REM **#* RESTA **** 

320 REM *********************** 

330 LET X-A-C 
340 LET Y=B-D 
350 60 TO 550 

400 REM *********************** 

410 REM *** MULTIPLICACION *** 

420 REM *********************** 

430 LET X=A*C-B*D 
440 LET Y=A*D+B*C 
450 -GO TO 550 

500 REM *********************** 

510 REM *** DIVISION *** 

520 REM *********************** 

530 LET X^<A*C+8*D)/tC*C+D*D) 

540 LET Y=( 8*C-A*D>/< C*C+ D*0) 

550 GO SUB 900 

560 REM *********************** 

570 REM REPRESENTACION GRAFICA 
580 REM *********************** 

590 REM ** DIBUJO DE LOS EJES** 

6C0 LET R=A; GO SUB 1100? LET A=R 

¿10 LET R-Bi GO SUB 1100: LET 8=R 

620 LET R=C: GO SUB 1100? LET C=R 

¿25 LET R*D: GO SUB 1100: LET D=R 

630 LET R=X: GO SUB 1100: LET X=^R 

635 LET R=Y : GO SUB 1100: LET Y=R 


¿40 PLOT 24,128: DRAW 80,0 




650 PLOT 63 T 88; DRAW 0,80 

652 LET Bí- I, + " : IF B<0 THEN LET B*='' " 







6 55 PPíNT AT l 0 , 3 f y 2- ™ ; A ; 8$ j B | M " *AT 11,31“ * 

660 LET Ü»64: LET U=M28 
670 LET J“T C 1 > : LET hNTÍ2> 

680 GO SUB 900 

690 PLDT 151,123: DRAW 80,0 

700 PLOT Í91 ,38: DRAW 0,80 

70 2 LET Df= M +": IF D<0 THEN LET W=' ,i ' 

705 PRINT AT i 0 , 20 ;* Z= H f CjD*j D f " I B ;AT 11 1 20¡ ,, “ " 

710 LET U= 191? LET U=1 28 
720 LET J-T (3) ■ LET H— T < 4 ) 

730 GO SUB 800 

740 PLOT 71,40: DRAW 80,0 

750 PLOT 111,0: DRAW 0,80 

752 LET Y$= " + * t IF Y<ü THEN LET Y#- " " 

755 PRINT AT 1 L , 1 9 ; “2=" f X; Y* ¡Y ; " I * ; AT Í4,l9j" * ;AT 16,Í9 j h 

760 LET U= 111: LET U=4Ü 
770 LET J=T < 5) : LET H=*T(6> 

780 60 SUB 800 
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790 PRINT #Ü ; " PULSA CUALQUIER TECLA* 

793 PAUSE O ; GQ Tü 70 

800 REM ** DIBUJO DEL HECTOR ** 

310 PLOT DRAW J T H 

370 RETURN 

900 REM *********************** 

910 REM ** FACTOR DE ESCALA ** 

920 REM *********************** 

930 DIM T <6) 

940 LET MAY0R=-9999 
950 LET T(1)=A; LET T(2)=8 
?60 LET TX 3>=C : LET T<4>=D 
970 LET T < 5 > =X t LET T<6>^Y 
980 FOR 1=1 TO 6 

990 IF ABS <T < JO > } MAYOR THEN LET MAYÜR-ABS íTCl)> 
1000 NEXT I 
I 0 1 0 FOR 1=1 TO ó 
1020 LET T< I >”CT< I> *40 > /MAYOR 
1030 NEXT I 
1040 RETURN 

1100 LET RR— I NT <R> : LET RX”R-RR 
MIO LET R*=STR$ RX+" " 

1120 LET R-RR+UAL R#í TÜ 3) 

1130 IF RX™0 THEN LET R=RR 
1140 RETURN 


Programa 2. Operaciones con números compiejos y representación gráfica para el Spectrum * 





. si 


Fig, 4. Representación gráfica de ios números complejos y del 
resultado de Ja operación elegida, en este caso la suma . 

■ Modificaciones para otros equipos 


5 REM **************************************** 
10 REM *** PROGRAMA DE NUMEROS COMPLEJOS *** 

15 REM *** *** 

20 REM *** PARA I BM , AMSTRAD ,MSX y COMMODORE *** 

25 REM *** *** 

30 REM ********#***************************“**** 
4 0 C L S 

50 INPUT "PRÍMER COMPLEJO 1 ' i A, B 
60 INPUT “SEGUNDO COMPLEJO 0 ; C , ü 

30 PRINT "lf SUMA* 

90 PRINT " 2* RESTA" 

100 PRINT w 3 . PRODUCTO ' 1 
110 PRINT "4 * D I U I S I ÜN “ 

120 PRINT :PRINT 

130 INPUT "ELIGE OPCION" jN 

140 CLS 

150 ON N 6ÜSL1B 500 ( 1000 , 1500 ,2000 
160 REM ***************,***** 

170 REM **** RESULTADOS **** 

180 REM ******************** 

190 PRINT " PRIMER COMPLEJO i “ f " C " l ; A \ “ , “ }B i 41 ) " 

2D0 PR I NT " SEGUNDO COMPLEJO : " í ” í " : C ; " . " : D : 1 > " 


210 PRINT ,r RESULTADO: 11 i " ( u ¡X; ", " 5 Y:" J " 
220 PRINT: PRINT 

230 INPUT " OTRA OPERACION CS/W" iX* 

240 X*=LEFT*<X$n> 

250 IF X$="S" OR Xí=" THEN GOTO 70 
260 END 

500 REM ******************** 

510 REM *#** SUMAS **** 

520 REM ******************** 

530 X=A+C 
540 Y—B+-D 

550 PRINT ''SUMA DE DOS COMPLEJOS" 

560 RETURN 

1000 REM ****************** 

1010 REM **** RESTA **** 

1020 REM ****************** 

1030 X*A.-C 
1040 Y— B~D 

1050 PRINT "RESTA DE DOS COMPLEJOS" 
1060 RETURN 

1500 REM *********************** 

1510 REM **** PRODUCTO **** 

1520 REM *********************** 

1530 X=A*C-B*D 
1540 Y~A*D+B*C 

1550 PRINT "PRODUCTO DE DOS COMPLEJOS " 
1560 RETURN 

2000 REM ************************* 

2010 REM **** DIMISION **** 

2020 REM ************************* 

2030 X«ÍA*C+B*D)/íC*C+D*D> 

2040 Y=<B*C-A*D>/<C*C+D*D> 

2050 PRINT "COCIENTE DE DOS COMPLEJOS"' 
2060 RETURN 


Versión estándar de! programa. 


MODIFICACIONES PARA COMMODORE 

40 PRINT CBR$(142) 

70 PRINT CHR$Ü47) 

140 PRINT CHR$(147) 

250 IF XS=“5" THEN GOTO 40 
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SOCIEDAD 

Test de Prehistoria 

Con el programa que a continuación 
presentamos se inicia el capítulo que dedica- 
mos al estudio de la Historia. 

Lógicamente, y atendiendo a su orden 
cronológico, comenzamos por la Prehistoria. 

— La función social que presenta la 
Prehistoria da un ámbito universal que evita 
los particularismos actuales y fomenta la soli- 
daridad humana, es decir, identifica el pasa- 
do común de todos los pueblos en un mismo 
hecho: la aparición del hombre sobre la 
Tierra. 

En cuanto a su estudio, nos damos cuen- 
ta de que es uno de los más atrayentes, sobre 
todo porque no necesita de ningún tipo de for- 
mación literaria, sino que más bien apela a la 
imaginación histórica. 


— Su función educativa es otra de las 
más importantes que cabe destacar. 

Como ya hemos mencionado, desarro- 
lla la imaginación histórica y nos libera de su 
contexto limitado, 

Nos coloca frente a las fronteras del co- 
nocimiento y nos enseña a utilizar los recursos 
de la técnica moderna, 

Estimula el interés por la geografía. 

Y, por último, nos muestra la historia de 
la estética de la humanidad. 

La Prehistoria es una ciencia humana, 
Trata del hombre, no de la Naturaleza, es par- 
te de la historia humana y aunque está cerca 
de la Ciencia Natural no la trata, sino que se 
sirve de ella. 

Podemos decir que su interés es el de 
cualquier actividad que además de entretener 
y educar constituye un beneficio para la so- 
ciedad en general, ya que contribuye a la in- 
tegración social y a la solidaridad. 




























10 REM ************************* 
















20 REM ** TEST DE PREHISTORIA ** 

SO REM ************************* 

40 GL5 

50 D1M AS {23? s Din B Sí 73) 

60 DIM C (25) ; DIM Di 10? 

70 PRINT 

BÜ f'ftlNT " »#### # # tt 4 *#### # 

90 PRINT " # #####&*## tt tt #" 

100 PRINT ° i*## 4 * ##### # # # ### n # 

UO PRINT " # # # # # # # *t # ## ]l 

120 PRINT " #*### # # # * n # ##### # #" 

130 PRINT 
140 PRINT 

150 PRINT " * ¡S * * **** **** * * * #*** ***** #*** **** * ****'* 

160 PRINT 11 ***** * * * * * *******" 

1 70 PRINT 11 **** *** *** ********** * * * *** * ****■< 

180 PRINT 11 * * * * * * * * * ******* 11 

190 F'RINT " * * ****** ****** * ***** * * # #" 

200 PRINT 
210 RRInT 

220 REM *************************************** 

230 REM ** LECTURA DE PREGUNTAS Y RESPUESTAS ** 

240 REP1 *************************************** 

250 POR N-l TO 25 

260 READ 

270 NEXT N 

280 R GR N-I TD 75 

290 READ DS (Ni 

300 NEXT N 

310 FQR N=i TO 25 

320 READ C\J\U 

330 NEXT N 

340 FÜR N=L TD TU 

350 LET DON 0=0 

360 NEXT N 

370 PRINT" EL EXAMEN CÜNSÍA DE DIEZ PRESUNTAS" 

-380 PRINT" TIPO TEST." 

390 PRINT 

400 F'RINT" DEBERAS CONTESTAR £ U NUMERO DE RESPUESTA CORRECTA' 1 
410 PRINT 

420 FOR 0=1 TO 3000: NÉXT D 
430 LET X=0: LET A-Oí LET B=0 

4 40 RE [i ******** *********************************** 

450 PEM ** GENERACION DE 10 PREGUNTAS ALEATORIAS ** 

460 REM ****** ************************** *********** 

470 RAND0M1ZE TIME 
480 LET W=ÍNTlftND*25)+l 
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490 CL3 

500 FOR N=1 ['0 10 


IF CMM)=W THEN GOTO 470 








NEXT N 









530 LET X = X+1 
540 LET DíXl=W 
550 PRINT A*ÍW> 

560 PRINT 
570 PRIN1 
580 PRINT 

590 PRINT TflBí2> ; B$ í í3#W)-2) 

600 PRINT 

610 PRINT TAEU2J :BSÍ Í3*W)-1) 

620 PRINT 

630 PRINT TAEM25 : B* 

640 PRINT: PRINT 

650 REM **. * ****** ******* 

660 REM ** RESPUESTAS ** 

670 REM **************** 

680 1NPUT "RESPUESTA: 11 ;C 
690 IF C=CÍW) THEN SD5UB 740 
700 IF COCW) THEN GOBUB B2Í> 

710 CLS 

720 ÍF X = 1 0 THEN GOTO 900 
730 GOTO 470 

740 REM ***********1 ************ 

750 REM ** RESPUESTA CORRECTA ** 

760 REM ************************ 

770 PRINT 

760 PRINT " CORRECTO" 

790 FOR Q-l TO lÓOOs NEXT Q 
800 LET A=A+i 
810 RE TUR N 

820 REM ************************** 

830 REM ** RESPUESTA INCORRECTA ** 

840 REM ************************** 

650 PRINT 

660 PRlM" INCORRECTO " 

870 FOR 0=1 TO 500: NEXT O 
880 LET B-B+l 
690 RETURN 

900 REM *********************** 

910 REM ** RESULTADOS EXAMEN ** 

920 REM *********************** 

930 PRINT TA&Í51;" RESULTADOS DEL EXAMEN" 

940 PRINT TAB(S) ; _ „ PRINT ; PRINT 

95Ú PRINT TABÍ5):" RESPUESTAS CORRECTAS " : A: PRINT : PRINT 
960 PRINT TAEM5>:" RESPUESTAS INCORRECTAS " : B: PRINT; PRINT 
970 IF A >=5 THEN GOTO 1020 

900 PRINT TA| (Sí : ll **************************** " 

990 PRINT TAB í 5) ; " * * DEBES ESTUDIAR MAS **" 

1000 PRINT V AB t5 > ; '■*#***** **i ***************** # - 
1010 GOTO 1040 

1020 IF A >8 THEN PRINT TAB (5 > : " ERES UN BUEN ESTUDIANTE, i SOBRESALIENTE í " i 
GOTO 1040 

1030 PRINT TAB í 5 > : " HAS APROBADO" 

1040 INPUT "¿QUIERES HACER OTRO EXAMEN? 11 : Zt 
1050 IF Z*= ,i S“ OR THEN GOTO 340 

1060 END 

1070 DATA" ¿QUE FENOMENO DELIMITA EL FINAL DE l_A PREHISTORIA?" , "lAS DIVISIONES DE 
LA PREHISTORIA ATIENDEN A: " 

LOSO DATA "¿CUAL ES LA PRINCIPAL DIFERENCIA ENTRE EL HOMBRE DEL PALEOLITICO V LOS 
ANIMALES?", "¿A QUE ESPECIE PERTENECE EL HOMBRE ACTUAL?", "LA APARICION DÉ UTÉNSl 
LlCS DE CAZA Y DE PESCA SE DA EN:" 

1090 DATA" ¿QUE FUNCIONES PRIMORDIALES TENIAN LAS CUEVAS?" , "^QUE SENTIDO TENIAN L 
AS PINTURAS RUPESTRES? 1 ' ♦ "6CÜMÜ SE LLAMAN LAS PRIMERAS MUESTRAS ESCULTORICAS?" 
1100 DATA-'EN el NEOLITICO LA RELACION hCM&RE-ANI MAL ES: " , "EN EL NEOLITICO ES NGT 
ABLE LA APARICION DE: lf 

1110 DATADLA CERAMICA V LOS TEJIDOS HACEN SU APARICION EN:" ."EL PRIMER METAL QUE 
SE UTILIZA ES El: 11 , "LAS PRIMERAS ACTIVIDADES ECONOMICAS SE DEBEN Ai" 

1120 DATA"¿CUAl ES LA RAZA QUE TIENE MÁS CAPACIDAD CRANEAL?" , "¿CUAL ES LA CULTUR 
AMAS ANTIGUA QUE EX ISTE?" , "LAS SOCIEDADES AGRARIAS DEL NEOLITICO SE DIFUNDEN HAC 
I Ai " 

1130 DATADLA CULMINACION DE IODO EL PROCESO NEOLITICO DA LUGAR A?", "LOS FOSILES 
MAS ANTIGUOS CONOCIDOS SON: " , "EN QUE ERA COMIENZA EL PALEOLITICO?" 

1140 DATA "¿CUANTAS FUERON LAS GLAO I ACIONES? " , 'LtTJ QUE PERIODO APARECE EL HOMO S 
APIENS?"."EN LA P. IBERICA EL HOMINIDO MAS PARECIDO AL HOMBRE ACTUAL ES:" 

1150 DATA "¿EL INSTRUMENTO DE ESTUDIO MAS IMPORTANTE EN LA EVOLUCION DEL HOMBRE 
ES:", "EL CAMBIO DE ENTERRAMIENTOS COMUNES A INDIVIDUALES SE DEBE A : " 

1160 DATA "¿QUE MATERIALES UTILIZABA EL HOMBRE EN EL PALEOLITICO INFERIOR?" 


U70 DATA ■'! LA APARICION DEL FUEGO' 1 . "2 LA INVENCION DE LA ESCRITURA" , ”3 LA APAR 
ICIDN DE LA AGRICULTURA" , ' 1 lAS RELACIONES DE LOS HOMBRES" t "2 LOS LUGARES DON DE 
VIVIAN" „ 11 3 LOS MATERIALES QUE UTILIZABAN! 1 ' 

1180 DATA "1 lPS LUGARES EN QUE VI V E AN " , 11 2 SUS ACTIVIDADES COMUNES", "3 LA FA&RIC 
ACION DE UTILES PROPIOS","! CROMAGNON" , "2 SAPIENS" , "3 IMEAftDERTHAL" 

U?0 DATA "1 PALEOLITICO SUPERI QR" , "2 MESQL I TICO" , "3 PALEOLITICO INFERIOR' 1 , " í RE 
FUGIO" , "2 LUGAR DE REUNION" , “3 CEMENTERIO" t " 1 DECORATIVO' 1 „ "2 MAGICO-RELIGIOSO" , " 
3 LUDIDO" 

1200 DATA "1 ESTATUILLAS" t "2 CERAMICAS" , "3 VENUS 1 ', "1 MAS LEJANA" 1 , "2 NO EXISTE" , 11 
3 DE DOMINIO" . " 1 CAZA Y PESCA" , "'2 AGRICULTURA Y PESCA" ,"3 GANADERIA Y AGRICULTOR 


T 


1 PALEOLITICO", "2 NEOLITICO" , "3 EDAD DEL BRONCE" 


NTARISMD" , "3 UTILIZACION DEL METAL","! AU5TRAL0PHI TEDUS " , ' 
RDERTHA! fh 

'2 HOMO ERECTOS ".,"3 

NEA 



1220 DATA ,a I ABBLVILLENSE " , "2 MLtSTERI ENEE" , 1 

'3 MAGD ALEN I ENSE" , " 1 EL NOROESTE DE E 




URQPA"i H1 2 EL SUR DE AFRICA", "3 EL OESTE POR EL MEDITERRANEO " 

1250 DATA "i LA REVOLUCION URBANA" , "2 LA REVOLUCION SÜCIAL","3 LA REVOLUCION REL 
IGIQSA" t ir l LOS DE LA P* IBERICA" f "2 LOS DE AFRICA DEL SUR" , "3 LOS DE MESQPOTAMI A" 
1240 DATA "l SECUNDARIA" , "2 PRIMARIA 1 ' , "3 CUA TERNAft I A" , " 1 TRES l \"2 DG5 ,J , IP 3 CUATRO 


", pJ l PALEOLITICO SUPERIOR" . "2 NEOLITICO" , "3 PALEOLITICO INFERIOR 
1250 DATA "1 NEARDERTHALT ,"2 PITHECANTftOPüS 1 . " 3 CROMAGNON" ■ " 1 LAS P I NTHRAR " , " 2 l 

ÜS MONUMENTOS" , "3 LOS FOSILES" , 11 1 APARICION DE LA PROP . PRI VADA" , "2 ESPECIE I CACI O 
N DE CLASES SOCIALES 1 . "3 DISTINTAS CREENCIAS RELIGIOSAS" , " 1 MADERA , METAL, F'IEDR 
A" 

1260 DATA "2 HUESO, PIEDRA BRONCE" , Ai Z MADERA, PIEDRA f HUESO" 

1270 DATA 2, 3,3*2* 1 , 1 ,2 t 3,3*3 , 2, i , 1, 1 , 1 ,2, 1 ,2,3,3, 1,3*3, 1,3 


i u 


Programa 3. Test de Prehistoria. 


El programa es válido para el IBM-PCL En los demás equipos habría que efectuar las siguientes modificaciones: 


SPECTRUM Ademásy habría que eliminar la línea 470 

50 DIM A$£ 25 , 80 ) s DIM 8i<75,40) 

420 PAUSE O 
790 PAUSE i 00 

870 PAUSE 100 MSX 

iOéO GOTO 999? 

480 LET U*IHT£RNDa)*25) + l 

Además^ habría qué eliminar la línea 470, 

Además abrí a que eliminar la línea 470 

COMMDDORE 

40 PRI NT CHRf £ 1 47) 

480 LEI W= 1 NT C RMD C 1 >ü25> + 1 AMSTRAD 

490 PRINT CHR£<147> 

710 PRINT CHRt<147> Habría que el ¡minar la línea 470 
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EL EXAMEN CONSTA DE DIE2 PREGUNTAS 
TIPO TEST, 


DEBERAS CONTESTAR EL NUMERO DE LA RESPUESTA CORRECTA 

¿QUE SENTIDO TENIAN LAS PINTURAS RUPESTRES? 

1 DECORATIVO 

2 MAGICO-RELIGIOSO 

3 LUDI CO 

RESPUESTA: ? 

Fig. 5, Ejemplo de ejecución de i programa de Prehistoria. 


El programa es un pequeño examen 
consistente en diez preguntas tipo test sobre 
temas básicos de Prehistoria, 

Este programa tiene una pequeña "base 
de datos” formada por veinticinco preguntas y 
sus tres correspondientes respuestas a cada 
una. 

Aleatoriamente, en cada ejecución del 
programa se eligen diez de estas veinticinco 
preguntas y se presentan sucesivamente al 
usuario para que opte por una de las tres po- 
sibles respuestas. 

Indagando más en la construcción del 
programa vemos dos matrices C y D, 

El uso de la primera matriz es el de al- 
macenamiento del número de las respuestas 
correctas. 
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En D se van almacenando las pregun- 
tas que se van formulando para que no se re- 
pitan en la ejecución del programa, 

Por último hay que hacer resaltar que 
las preguntas y respuestas pueden ser reno- 


vadas sin más que cambiarlas en los respecti- 
vos DATAs, teniendo la precaución de colocar 
las preguntas y respuestas en el mismo orden 
en dichas sentencias DATA, 


PARA LOS MAS JOVENES 


■ Tablas de multiplicar 

Este programa te ayudará a dos cosas: 
te servirá para aprender las tablas de multi- 
plicar y además te será útil para practicar y 
probar tu habilidad si ya sabías. 

Si crees que no tienes problemas y que 


ya sabes multiplicar podrías empezar eligien- 
do la opción TEST, Si realmente has aprendi- 
do bien y no cometes errores ¡ENHORABUE- 
NA! 

Si te equivocas pulsa la opción tablas y 
podrás repasar y ver cuáles eran tus errores, 
Cuando creas que ya te lo sabes bien, vuelve 
a la opción TEST hasta que no cometas ningún 
error. Puedes hacer competiciones con tus 
amigos y ver quién juega más veces sin equi- 
vocarse. 


ÍÜ REM ***** MULTIPLICACION ***** 

20 CLS: PRINT " ^a#****************#****#**#*' 1 
30 PRÍNT "** TABLAS DE MULTIPLICAR **" 

4n PRINT ***************************** JÍ 
50 FOR x=í Tü 500 : NEXT x ; CLS 

¿0 PRINT " ELIGE LA OPCION DESEADA." 

65 PRINT; PRINT; PRINT: PRINT 

70 PRINT ■ PULSA": PRINT 

71 PRINT - ^FINALIZAR 11 

72 PRINT IÉ E=7EST 11 

73 PRINT 11 T=' TABLA 1 * 

90 INPUT X$ 

90 IF " F " QR Xü="-f ,r THEN '3ÜTÜ 9999 
100 IF X$="E" ÜR THEN GOTO 1 60 

110 IF OR " t *' THEN GOTO 500 

120 REM ***************************** 

130 REM **** EMPIEZA EL TEST **** 


140 REM ***************************** 










1 6 U LLs: L 1 1 ñf= 1 M 1 í, KIN V * L U ¿ + i 

170 LET E= I NT (RME>*10> + 1 

1 30 RR I NT " CUANTAS SON " ; a ; " * " 

; U : INPUT 

ct 











200 IF MAL fc*)--=a*b THEN PRINT " CORRECTO FOR x*=l TO 2DQ:NEXT xíCLSi GOTO 210 
205 PRINT 11 ERRONEO “ 

210 PRINT " QUIERES INTENTARLO DE NUEVO. S/N" 

230 INPUT 3$: CLS 

240 IF " 8 11 0R THEN GOTO 160 

250 IF sf= N N H OF *.$= “ n " THEN GOTO 60 
260 CLS: GOTO 110 
500 REM ******** **#****#$##* 

510 REM ** TABLAS ** 

520 REM ******************** 

53(1 CLS 

540 INPUT " QUE TABLA QUIERES U - i 0 > ? " ,N 



550 PRÍNT " TABLA DEL " ;N 

5AÑ P-ernT* PF ÍNT ■ PPtNT 










570 FOR 1=1 TO 10 

¿00 PRÍhíT 11 M ;Ni H * "TI ; " : 

ii 

















610 NEXT I 

¿20 PRINT; PRINT: PRINT; PRINT 

630 PRINT " PULSA UNA TECLA PARA CONTINUAR" 

¿40 IF INKEYf— w - l THEN GOTO ¿40 

650 CL3: GOTO 60 

Programa 4 Programa de multiplicación para el Spectrum 


El programa es válido para el Spectrum. En los demás equipos habría que efectuar las siguientes modificaciones; 


IBM 

90 IF X$-"F H ÜR X4= " f " THEN END 
150 RANOOMI 2E TIME 


COMMODORE 

20 PRINT CHft$U 47) : PRINT « *****************************" 
90 IF X$= * F 4f THEN END 
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|¿0 PRINT CHRÍ ( 147): 1_ET F.=INTCRND< 1) #101 + I 

MSX 

-e 

170 LET B= I NT ( RND < í >-* 1 0 ) + 1 

90 1F Xí="F" 0R X*="f” THEN END 

200 1 F yALCCS)~A*8 TUEN PRINT 41 CORRECTO" ¡FOR X=i TO 200 fNEXT Xí 

160 CLSiLET A= I NT í RND ( 1 5 * í 0 > 1 1 

PRINT CHR*( 147) : GOTO 210 

170 LET 8= I NT < RND ( 1 > * í 0 í + 1 

260 PRINT CMR$< 147) 


530 PRINT CHRf<í47> 


¿40 GET AS : I F A$-" ,r THEN GOTO ¿40 

AMSTRAD 

¿50 PRINT CHR$ ( í 47) : GOTO ¿0 



9Q IF X*«**F U ÜR X*=*-r THEN END 
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N el año 1947 parecía que se 
iba llegando al final, y en la 
mente de todos estaba claro 
que los ordenadores se mo- 
dificarían y mejorarían sus 
características, pero segui- 
rían con la misma arquitec- 
tura (por lo general, la de 
von Neumann). Sin embargo, en ese año de 
1947 tuvo lugar un descubrimiento de enorme 
trascendencia: el transistor. La palabra tran- 
sistor deriva de las palabras inglesas transíer, 
resistor, que significa resistencia de transfe- 
rencia. Este componente electrónico surgió 
como resultado de las necesidades de la com- 
pañía Bell Telephone System, que necesitaba 
mejorar sus comunicaciones; y en especial sus 
amplificadores. El transistor se fabricó con un 
pequeño pedazo de material semiconductor 
(los semiconductores ofrecen una resistencia 
a! paso de la corriente que es intermedia en- 
tre conductores y aislantes); implantando en 
ese material algunas partículas de «impure- 
zas» se consigue que la conductividad del ma- 
terial (conductividad = inverso de la resisten- 
cia), varíe con la tensión aplicada a sus pati- 
llas. 


Desde luego, aunque los primeros tran- 
sistores no eran muy fiables (además eran rui- 
dosos), eran bastante más seguros que las vál- 
vulas. Estas eran mucho mayores en tamaño, 
necesitaban tensiones superiores y, por tanto, 
disipaban mucho más calor, creando los con- 
siguientes problemas. 

Pero retrocedamos unos años, y veamos 
lo que aconteció a nuestros presuntos diseña- 
dores del primer ordenador o máquina uni- 
versal que utilizaba válvulas. 

A finales de 1949, ya superado su tra- 
bajo en el ENIAC, Ecker. y Mauchíy abando- 
naron la Universidad de Pennsylvania y pen- 
saron en sus intereses personales tanto tiem- 


po abandonados. Formaron su propia compa- 
ñía y su primer contrato fue para una corpo- 
ración de aviación, la Northrop Aviation. Su 
objetivo era diseñar un ordenador verdadera- 
mente seguro. Con esta idea crearon un orde- 
nador con un diseño secuencial, no como los 
modernos ordenadores, en los que la informa- 
ción se puede transferir de forma simultánea 
por varias líneas en paralelo. El BINAC, desde 
luego, era un ordenador seguro. La verdad es 
que eran dos ordenadores, uno de los cuales 
estaba «en reserva» para cuando el otro no pu- 
diera funcionar. Además, el sistema de alma- 
cenamiento de la información también era no- 
vedoso, ya que utilizaba cinta magnética. Mu- 
chas de las válvulas también habían sido sus- 
tituidas por diodos semiconductores. El si- 


¿ Sabía usted que... 

El lector recordará que hablamos de una se- 
rie de ordenadores, los Colossi, desarrollados en 
Bletchley (Inglaterra) por el profesor Alan Turing. 

Pues bien, esas máquinas también tenían una 
finalidad militar. 

Durante la Segunda Guerra Mundial los britá- 
nicos obtuvieron a través de los polacos una maqui- 
na de criptografía llamada Enigma. Era una oportu- 
nidad única que no podían desaprovechar, y el Ser- 
vicio de Inteligencia, naturalmente con otras siglas, 
encargó al profesor Turing la familia de ordenado- 
res Colossus con el fin de utilizarlos en descifrar los 
mensajes criptográficos que iban obteniendo. En una 
pequeña finca rural próxima a Bletchley se instaló un 
enorme equipo de escuchas muy motivados en de- 
sarrollar su labor, 

Las máquinas llevaron a cabo magníficamen- 
te su cometido, siendo una ayuda considerable en la 
toma de decisiones trascendentales. 
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guíente proyecto de la firma tiene una impor- 
tancia histórica, ya que se trata ni más ni me- 
nos que del primer ordenador comercializa- 
do, es decir, fabricado en serie y con el obje- 
tivo de venderlo a simples empresas civiles, 
no a organismos estatales o paraestatales. El 
producto creado es el UNIVAC I. (El nombre 
UNIVAC es una abreviatura de Universal Au- 
tomatic Calculator.) 

Pero ¿cuándo se popularizaron real- 
mente los ordenadores? Pues no, no fue calcu- 
lando trayectorias de planetas, ni estudiando 
la estructura molecular, el ordenador se popu- 
larizó cuando pronosticó y acertó en la victo- 
ria del presidente Eisenhower en las eleccio- 
nes americanas de 1952. A partir de ese mo- 
mento, los distintos canales de televisión nor- 
teamericana comenzaron a preocuparse de la 
naciente informática, creando concursos, et- 
cétera. 

Anteriormente, la empresa de Eckert y 
Mauchly fue absorbida por la Remington 
Rand, que más tarde se fusionó con Sperry, y 
en nuestros días, fusionada con otras compa- 
ñías (Honeywell), se llama UNISYS. 

En 1952 Schockley publica unos traba- 
jos sobre otro tipo de transistores: los transis- 
tores de efecto de campo o FET. En este tipo 
de transistores la innovación fundamental era 
que el flujo de corriente podía controlarse va- 
riando un campo magnético perpendicular al 
flujo, De este modo los transistores realizaban 
un efecto de válvula de control y no eran sim- 
plemente «filtros» o «amplificadores». En el año 
1953 el laboratorio de la Bell Telephone consi- 
gue fabricar un tipo de transistor llamado 
«unión FET o JFET». G. Dacey y M, Ross fueron 
los que estudiaron el efecto campo en los tran- 
sistores, pero sus mejoras resultaron demasia- 
do costosas para la compañía, que no podía 
utilizarlos en todas las aplicaciones. Hubo que 
esperar hasta 1960 para obtener un transistor 
que fuera «bueno y barato». Naturalmente, era 
de efecto campo, pero el material utilizado era 
silicio (uno de los materiales más comunes y, 
por tanto, más baratos de nuestro planeta), y 
el aislante era dióxido de silicio, también re- 
lativamente fácil de obtener, ya que estamos 
utilizando silicio. Su tamaño era muy pequeño, 
lo que es otra ventaja adicional. Él paso de 
corriente se controla aplicando una determi- 
nada tensión al electrodo de puerta. Podemos 
decir que los transistores han sido el vehículo 
natural para llegar a los «chips» o circuitos in- 
tegrados. 


En 1954 la Texas Instruments comienza 
a fabricar masivamente transistores de silicio, 
ya que la demanda de este tipo de componen- 
tes aumentaba, y en la mayoría de las aplica- 
ciones en las que no se requiriera mucha po- 
tencia, 

Hemos hablado del transistor, porque 
supuso una revolución en la electrónica. Este 
pequeño componente se había creado pensan- 
do en que sustituyera a los amplificadores de 
válvulas, Sin embargo, se utilizó para muchas 
más cosas. En los ordenadores, por ejemplo, 
sustituyó a las válvulas de vacío en la mayor 
parte de los circuitos, mejorando notablemen- 
te la velocidad de operación, Su robustez (la 
simplicidad de su constitución) y su tamaño, 
los hacían más seguros y baratos que las vál- 
vulas. El cambio que supuso en la arquitectu- 
ra de los ordenadores la aparición de los tran- 
sistores fue tal que marcó las diferencias en- 
tre uno y otro tipo de ordenadores. Así, los pri- 
meros (que llevaban válvulas), se les llamó Or- 
denadores de la Primera Generación, y a los 
que llevaban transistores, Ordenadores de la 
Segunda Generación. 

El ordenador típico de la década de los 
años 1948 a 1958 tiene la siguiente configura- 
ción externa: un armario grande lleno de con- 
densadores, resistencias, cables, válvulas, 
etcétera; otro armario algo más pequeño para 
la entrada de la alimentación; una consola de 
operación; una unidad para la entrada de los 
datos (que generalmente consistía en una lec- 
tora de fichas perforadas o de cinta de papel), 
y una unidad de salida (también por tarjetas o 
cinta perforada). 

Pero no se asuste el lector; todo lo an- 
terior constituye sólo los «trastos mínimos», ya 
que ciertas memorias, por ejemplo, de dos ni- 
veles que llevan líneas de retardo de mercu- 
rio, necesitan colocarse en un receptáculo se- 
parado, ya que es fundamental el control de 
la temperatura. Las tarjetas de entrada de da- 
tos se leen a una velocidad de 200 tarjetas por 
minuto, pero, no nos impresionemos, las de sa- 
lida se leen y perforan a la mitad de la velo- 
cidad anterior. La lectora y la perforadora de 
cinta de papel suelen colocarse sobre la con- 
sola del ordenador, ya que resultan mucho 
más pequeñas que la de fichas perforadas. En 
cualquier caso, sólo los empresarios potentes 
(Lyons, de Inglaterra, etc.) y la suma de pe- 
queños contribuyentes, podía permitirse toda- 
vía el enorme coste de las máquinas. 

El resultado obtenido con nuestra mo- 
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¿Sabía usted que... 

¿Sabía que uno de los teletextos que funcio- 
nan en el Reino Unido, el Prestel, tiene un volumen 
de doscientas mil páginas? 

Este enorme ((semanario electrónico» es di- 
fundido por línea telefónica. Evidentemente, la comu- 
nicación con este libro de nunca acabar es más cara 
que una comunicación telefónica normal y, además, 
el precio de la llamada se descuenta automáticamen- 
te de la cuenta bancaria del usuario. 

Las páginas pueden ser de hasta siete colores 
diferentes. Tienen una anchura de sesenta caracte- 
res, mayúsculas, minúsculas, cifras y otros signos es- 
peciales. 

La información del teletexto la proporcionan 
quinientas entidades distintas. Entre la información 
a la que puede acceder el usuario se encuentra un 
mercado de ofertas de trabajo, la guía de ferrocarri- 
les completa, información bursátil, financiera, del 
tiempo, un diario de noticias, previsiones meteoroló- 
gicas. 

Pero, por si el usuario se desanima, y le pare- 
ce que ya domina todos los conocimientos anterio- 
res, el Prestel también le ofrece recetas de cocina, 
anuncios de todo tipo, y, cómo no, novelas tipo se- 
rial televisivo. 

Una de las enormes ventajas que presenta es 
que siempre está actualizado, ya que, como puede 
comprender el lector, esa tarea es sencilla de reali- 
zar con un ordenador, e impensable con manuales, 
libros, etc., de ese volumen. 


eternísima máquina es un conjunto de fichas 
perforadas o una cinta, que son legibles por 
personas expertas, pero no por cualquier per- 
sona ajena a la Informática. Por tanto, para 
crear un informe presentable con la informa- 
ción procesada es necesario reconvertirla en 
caracteres legibles por parte de cualquier 
persona. Para ello deberán cargarse las fichas 
en el alimentador de la impresora o la cinta en 
una teleimpresora, Tanto la una como la otra 
son dispositivos muy lentos, especialmente la 
teleimpresora, que va escribiendo carácter a 
carácter, en lugar de hacerlo línea a línea, 
como lo hace la impresora. 

En la década de los sesenta los ordena- 
dores han sufrido algunos cambios importan- 
tes. El armario principal se ha dividido en va- 
rios armarios (pueden llegar a ser hasta quin- 
ce). Además se mima mucho más que antes al 


ordenador: se instala en habitaciones especia- 
les, aisladas de ruidos, con aire acondiciona- 
do y una determinada humedad ambiente. La 
razón de haber desglosado el ordenador en 
tantos elementos se debe a que al organizado 
por módulos se puede atender más a la de- 
manda de los clientes y venderles una máqui- 
na a su medida (al menos eso es lo que nos 
contaban los vendedores de las casas fabri- 
cantes), Estos nuevos ordenadores disponen 
de una unidad central, a la que se pueden co- 
nectar cualquier número y tipo de unidades 
de entrada y de salida, además de la memo- 
ria que se desee, Por tanto, un equipo típico 
dispondrá de unidades de memoria de alta ve- 
locidad (4,000 a 8.000 palabras de 32 a 48 bits), 
varios tambores magnéticos, con una capaci- 
dad de 8.000 a 32.000 palabras, varias unida- 
des de cinta magnética, en las que se puede 
leer y escribir información a gran velocidad 
(100,000 caracteres por segundo), lectores de 
tarjetas (ahora ya son capaces de leer de 400 
a 800 fichas por minuto), perforadoras, impre- 
soras que actúan por líneas completas (1.200 lí- 
neas por minuto con 100 caracteres por línea, 
y conectadas directamente a la unidad cen- 
tral), También pueden disponer ie lectoras 
ópticas, de cinta de papel, muy rápidas, y per- 
foradoras de cinta de papel, cuyas velocida- 
des van de 100 a 300 caracteres por segundo. 
Como puede verse, la técnica ha mejorado en 
todos los campos: sistemas de almacenamien- 
to, lectoras ópticas, mejores sistemas de gra- 
bación, etcétera. 

Hemos hablado hasta ahora de ordena- 
dores de la primera y segunda generaciones. 
Recordemos que los de la primera se caracte- 
rizaban por utilizar válvulas, mientras que los 
de la segunda utilizaban transistores. Enorme 
innovación, pero ¿se darían por satisfechos 
los fabricantes, o seguirían invirtiendo enor- 
mes sumas de dinero, y los cerebros más emi- 
nentes en sus laboratorios de desarrollo? Efec- 
tivamente, las empresas fabricantes no se con- 
tentaban con los progresos alcanzados, e in- 
vestigaban para mejorarlos, 

Además, la competencia era ya feroz. 
IBM, que había perdido su oportunidad de in- 
troducirse en la fabricación de ordenadores 
en sus primeros tiempos (no participó en la 
aparición del UNIVAC, primer ordenador 
«asequible»), decidió cambiar de rumbo y pa- 
sar a fabricar máquinas universales: es decir, 
ordenadores. Tom Watson hijo fue el artífice 
de este cambio, oponiéndose al grupo conser- 
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vador de la empresa, cuya cabeza era su pa- 
dre, el fundador del imperio, IBM era una em- 
presa muy potente, que fabricaba innumera- 
bles modelos de máquinas de oficina, es de- 
cir, máquinas que realizaban únicamente cier- 
tos cálculos para los que habían sido progra- 
madas, El servicio que ofrecía la empresa era 
inmejorable, y el viejo señor Watson estaba 
empeñado en proteger y consolidar su impe- 
rio, ¡Le había costado tanto trabajo levantarlo! 
Pero volvamos, pues, a los laboratorios de in- 
vestigación. La tercera generación de ordena- 
dores nacía con los circuitos integrados. Como 
ya sabe el lector, un circuito integrado es una 
pequeña pieza de material semiconductor en 
la que se podían incluir varios transistores 
(hoy en día son miles). 

Los ordenadores construidos con esta 
nueva tecnología tenían grandes ventajas so- 
bre sus antecesores de la segunda genera- 
ción. Eran más seguros, más rápidos y más ba- 
ratos. Pensará el lector que estas nuevas tec- 
nologías habían surgido sin el apoyo que ofre- 
cen el Estado, sobre todo en tiempo de guerra. 

Efectivamente, la enorme competencia 
y el espíritu pionero americano crearon mu- 
chas empresas, y algunas de ellas comenza- 
ron sus investigaciones en garaje* w trasteros. 
Pero además de todo este enorme esfuerzo, el 
estado norteamericano comenzó a gastar su- 
mas ingentes en investigación espacial. Y los 
cohetes necesitaban ordenadores potentes, 
pero cuyo peso fuera el menor posible. Por 
esta razón, favorecieron la investigación diri- 
gida hacia este tipo de circuitos integrados. 


En los primeros proyectos de 3a NASA 
los ordenadores permanecían en tierra, y las 
órdenes eran enviadas desde los laboratorios 
por sistemas complejos de comunicaciones. 
Hoy en día, en el Kennedy Space Center, de 
Cabo Cañaveral, y en el Johnson Space Cen- 
ter, de Houston, existen potentes ordenadores 
que colaboran en los distintos proyectos, pero 
el papel principal ha pasado a los ordenado- 
res de a bordo, que controlan motores, instru- 
mentos de vuelo y sistemas de puesta en ór- 
bita y regreso a la Tierra, e incluso el cabe- 
ceo que pudiera marear a los tripulantes. 


¿Sabía usted que... 

¿Sabía usted que las fichas perforadas supo- 
nían unos ingresos nada despreciables para la IBM? 

Desde 1930 a 1950 la venta de fichas perfora- 
das supuso para la IBM, aproximadamente, un 25% 
de sus ingresos. Es más, se piensa que esa estima- 
ción es mucho más baja que la real, sobre todo en la 
década de 1930 a 1940, 

Una de las razones de estas enormes ganan- 
cias se debía a que las máquinas IBM sólo podian uti- 
lizar fichas IBM. Esta política supuso para IBM un 
control y unos beneficios enormes, aunque finalmen- 
te le supondría pleitos, acusada de monopolio. Los 
norteamericanos siempre han sido exquisitos defen- 
sores de la libre competencia, y la potente empresa 
era demasiado próspera para que otras empresas le 
dejaran el campo libre. 
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TEMAS MONOGRAFICOS DE VANGUARDIA 


■ Seguridad e informática (I) 

L problema de la seguridad 
en Informática es ciave, por- 
que confluyen en este tema 
dos fenómenos diferentes, 
pero coadyuvantes: por un 
lado, la falta de seguridad 
general que se va exten- 
diendo en todo el mundo, 
con los desarrollos tecnológicos (problemas 
de terrorismo, problemas de espionaje indus- 
trial, extorsión, etc.); por otro lado, los avances 
en Informática hacen que los equipos implica- 
dos sean de gran valor, y sobre todo, que las 
informaciones y datos almacenados, así como 
las actividades desarrolladas sean día a día 
más importantes: en efecto, antiguamente, si 
se estropeaba —fortuita o voluntariamente— 
un ordenador, se pasaba a otro, y si se perdía 
un archivo, se tomaba la copia y se seguía tra- 
bajando con ella; hoy en día, no sólo la recu- 
peración de información es más complicada, 
sino que los procesos en tiempo real exigen 
aumentar enormemente las protecciones que 
se adopten para tener la seguridad de que no 
se producirán fallos. 

Además, los avances de la electrónica 
y las comunicaciones por un lado, y de la in- 
formática por el otro, ponen en manos del po- 
sible defraudador, terrorista.,, o simple curio- 
so, "herramientas" hace unos años impensa- 
bles. De hecho, las violaciones de los sistemas 
informáticos son cada día mayores y, en con- 
creto los fraudes en entidades financieras es- 
tán creciendo de manera exponencial desde 
hace tres o cuatro años en Estados Unidos; esto 
se debe a varias razones: por un lado, los sis- 
temas bancarios son más abiertos y públicos 
que los que utilizan, por ejemplo, las empre- 
sas en sus laboratorios de desarrollo, o el Ejér- 


cito o la NASA; por otro lado, el interés de "sal- 
tar” las protecciones en estos sistemas es ma- 
yor (y nunca mejor dicho lo del "interés", pues- 
to que aquí el "beneficio" se cuenta en dólares 
—o millones de dólares—) y el número de per- 
sonas interesadas en este tipo de fraudes (nú- 
mero de posibles cabezas pensantes defrau- 
dadoras) es mucho mayor; además, con la mi- 
croinformática y los sistemas caseros se dis- 
pone, hoy en día, por un precio módico de un 
equipo informático con una capacidad de pro- 
ceso enorme. Para comprobar las dificultades 
existentes en la represión de este tipo de de- 
litos, se puede pensar que, además, es usual 
que sólo se detecten los fraudes por azar y, 
por otro lado, la falta de legislación adecuada 
y el hecho de que los delitos sean sin violen- 
cia y no sobre personas (sino contra entida- 
des) hacen que los jueces sean bastante bene- 
volentes (de hecho, en un proceso contra un 
defraudador de la Pacific Telephone en el año 
1968, que había robado un millón de dólares 
—unos 135 millones de pesetas de hoy— fue 
condenado a 60 días en una granja penitencia- 
ria y sólo cumplió —por buena conducta— 40 
días: hoy tiene un lucrativo negocio como ase- 
sor informático dedicado al diseño de sistemas 
de protección contra fraudes). 


1 1 Delitos en los sistemas de TEF 

Existen tres formas básicas de "delito 
con el ordenador” respecto de las entidades fi- 
nancieras. 

a) Por un lado, se han producido nu- 
merosas estafas mediante el desvío fraudulen- 
to de fondos (en un sistema general de Trans- 
ferencia Electrónica de Fondos) a una cuenta 
incontrolada; en este caso, se suele detectar 
la falta del dinero de un modo casi inmediato, 
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PROTECCION DE LA 
INFORMACION EN INFORMATICA 

A) EN EL PROCESAMIENTO DE LOS DATOS 
A.L. CONTRA ERRORES 

— Control de procesamiento del archivo 
adecuado (nombre de archivo, n.“ de ge- 
neración, n.° de orden...). 

— Control lógico de la información (a nivel 
campo) (límites para las variables, cam- 
pos alfabéticos y/o numéricos...). 

— Control lógico a nivel de grupo de datos 
(controles de total, controles cruzados). 

— Control físico de integridad de los datos 
(bit de paridad, control de operaciones 
prohibidas, de acceso a áreas reservadas 
de memoria..,). 

A. 2. CONTRA ACCESOS INCONTROLADOS 

A.2.1. Sistemas lógicos 

— Palabras— clave generales o par- 
ciales. 

— Mensajes de interrupción 

(Mensaje dejado por el operador 
para detenciones momentáneas del 
proceso -paradas para desayuno 
u otras—...). 

A.2.2. Sistemas de protección física 

— Protecciones físicas de acceso a la 
sala del ordenador o la sala de ter- 
minales, Llaves de control. 

— Protección de los archivos magné- 
ticos: cintas y discos (cámaras de 
seguridad y otros). 

A.2.3. Sistemas mixtos 

— Sistemas de clave + dispositivo de 
acceso 

(terminales físicos de creación de 
claves en conjunción con rutinas 
software del ordenador, dispositi- 
vos que emiten palabras clave...). 

— Sistemas de identificación 

(reconomiento de la voz, de hue- 
llas, reconocedor de la retina...). 

B. EN LA TRANSMISION DE LOS DATOS Y TELE- 
PROCESAMIENTO 

B. l. EN CUANTO A ERRORES DE TRANSMISION 

— Control de integridad de la transmisión 
(bit de paridad, códigos de detección y/o 
recuperación de errores...) 

— De validez de la transacción (individual) 
(reconocimiento del mensaje -acknow- 
ledgment-, control de n.“ de transacción 
incluido por el operador o añadido auto- 
máticamente por el equipo.) 


B.2. EN CUANTO A SEGURIDAD DE LOS DATOS 

— Ocultación de mensajes 

(técnicas criptográficas y de enmascara- 
miento). 

— Claves de acceso a la red 

(palabras simples o a varios niveles, de ac- 
ceso general o aparte de los datos y/o pro- 
cesos). 

— Dispositivos de seguridad de los termina- 
les 

(llaves físicas de apertura, interfaces con 
claves o tarjetas de control...). 

pero no se sabe a “dónde ha ido a parar"; el es- 
tafador saca posteriormente de su cuenta el 
dinero, normalmente a través de una cuenta 
convencional, y en otro punto muy alejado de 
la oficina donde se produjo la “desviación 11 . 

b) Más usuales han sido los casos de 
obtención de grandes sumas por "redondeo"; 
las fracciones de centavo de dólar (cada cen- 
tavo equivale a 1,30 pesetas, aproximadamen- 
te) son "desviadas 1 ’ a una cuenta especial de 
acumulación: cada usuario no detecta estas 
pequeñas pérdidas, pero el interesado obtie- 
ne sumas importantes con la acumulación, día 
tras día, de los “redondeos 11 de miles de opera- 
ciones. 

c) Otro tercer tipo de delito que se 
está extendiendo en Estados Unidos es el “van- 
dalismo informático”: mediante ordenadores 
personales y a través de los sistemas de «te- 
lebanco» establecidos, se introducen en los 
grandes sistemas bancarios y pueden llegar a 
producir grandes daños (destrucción de pro- 
cesos o de ficheros de datos). La principal di- 
ficultad existente para detectar este tipo de 
delito es que es complicado prever dónde o 
cómo se va a producir, porque no tiene finali- 
dad de lucro y el interés de estos “gamberros" 
es sólo producir un daño lo mayor posible y 
cuanto más en zonas protegidas del sistema, 
mejor. 

Frente a estos tipos de delito, se han de- 
sarrollado numerosos sistemas que, global- 
mente, se pueden agrupar en tres apartados: 
sistemas de protección física, sistemas de con- 
trol lógico de acceso y sistemas mixtos. 

a) Los sistemas de protección física 
pueden estar instalados bien en el recinto de 
a sala de los ordenadores o de terminales, 
bien en las salas de almacenamiento de los so- 
portes magnéticos (cintas y discos). Básica- 
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mente coinciden con los sistemas generales 
de seguridad: llaves de puesta en marcha de 
los equipos, tarjetas magnéticas de acceso, cá- 
maras acorazadas. En los últimos años se han 
desarrollado enormemente los sistemas de 
protección biométricos, es decir, que exami- 
nan y miden características del cuerpo de la 
persona que intenta el acceso, para determi- 
nar si se le permite pasar o no. Los sistemas 
biométricos más utilizados son: detector de 
huella dactilar (se comparan los rasgos bási- 
cos de la huella presente —el usuario pone el 
dedo en un objetivo dispuesto al efecto— con 
los que el sistema tiene archivados para ese 
número de clave), geometría y tamaño de la 
mano (también exige un alto coste y una can- 
tidad de memoria de almacenamiento gran- 
de), reconocimiento de la voz (todavía hoy no 
muy fiable; aún no es comercial), análisis de 
la firma (es el método más antiguo y más pro- 
bado; suele ir actualizando las firmas de las 
personas autorizadas para evitar los proble- 
mas de cambio de firma con el paso del tiem- 
po), reconocimiento de retina (semejante ai de 
huellas dactilares, pero más fiable; analiza la 
disposición de las venillas que surcan la reti- 
na), etc. 

b) Sistemas de control lógico de acce- 
so son aquellos que permiten el paso o no al 
usuario en función de que éste facilite la cla- 
ve adecuada al sistema. El control se realiza 
por software y básicamente existen dos tipos: 
aquéllos en que la clave es fija (al menos du- 
rante un período de tiempo) para todos los 
usuarios, o una para cada usuario (caso más 
normal) y aquellos otros en que la clave varía. 
De estos últimos, un caso típico es el de “con- 
trol después del desayuno": es un sistema pre- 


visto para que el operador de un terminal pue- 
da cerrar el acceso desde ese terminal provi- 
sionalmente cuando se ausenta un breve es- 
pacio de tiempo (salida para el desayuno, co- 
mida, etc.): el sistema admite un breve men- 
saje (hasta 50 caracteres) que cierra el acce- 
so y no lo vuelve a abrir hasta que se repita di- 
cho mensaje de control; a veces este sistema 
se complica con controles adicionales horarios 
(cierre definitivo si no se reanuda la sesión de 
trabajo antes de un número prefijado de mi- 
nutos, control de que la sesión no se reanuda 
antes de "n" minutos, control de que este cierre 
"para el desayuno" sólo se hace a ciertas ho- 
ras del día, etc.). 

c) En los sistemas mixtos, se combinan 
ambas técnicas: por software se controla la in- 
troducción de ciertas claves, pero es necesa- 
rio además alguna operación manual (intro- 
ducción de llaves o tarjetas de control). Otro 
grupo de sistemas de seguridad se basa en 
que el dispositivo de control (normalmente un 
aparatito parecido a una calculadora) emite 
una clave especial, o, en presencia de la pan- 
talla del ordenador, genera una clave especial 
(variable) que es la que el usuario debe intro- 
ducir, o alguna otra variante sobre este esque- 
ma básico. 

Pero no es el acceso incontrolado a la 
información el único peligro que existe en un 
sistema de proceso de datos. Además, existen 
causas (fortuitas o no) que pueden producir 
daños enormes (en ocasiones, irreparables) en 
la información almacenada o en los programas 
introducidos. En un sistema informático o de 
EDP pueden causar mayores trastornos que 
los defraudadores, el agua o el fuego o cual- 
quier tipo de sabotaje, 



54 





El fuego 

De los puntos mencionados, probable- 
mente el fuego sea el peligro principal. Cada 
año se registran numerosos incendios en ofi- 
cinas, El fuego es un problema crítico en cen- 
tros con ordenadores por muchas razones; en 
primer lugar, porque son lugares llenos de 
material combustible, como papel, cajas, etc, 
El falso suelo y el cableado que va por él tam- 
bién pueden causar problemas serios. 

Desgraciadamente, los sistemas contra 
incendios no son todo lo modernos que desea- 
ríamos, causando casi tanto daño al material 
como el propio fuego, sobre todo en el caso 
de las cintas magnéticas, El dióxido de carbo- 
no, alternativa actual del agua, resulta también 
peligroso para los propios empleados, si que- 
dan atrapados en la sala del ordenador, 

El fuego es el principal enemigo del orde- 
nador, ya que puede destruir fácilmente fiche- 
ros de información y programas, que suelen 
ser difícilmente sustituibles. El hardware nor- 
malmente está asegurado, y el fabricante pue- 
de sustituirlo o repararlo generalmente en 
muy poco tiempo, de forma que los daños físi- 
cos del equipo suelen ser el problema menor, 
La sustitución de las cintas y ficheros es mu- 
cho más difícil, y en ocasiones imposible. Las 
empresas deben tener backups (copias de se- 
gundad) de sus ficheros, y almacenarlas en 
otros edificios. Esta es una norma de seguri- 
dad muy importante, que deberían seguir to- 
das las empresas. 

Además de la pérdida de ficheros, y 
otros daños físicos del equipo, el fuego puede 
causar otras pérdidas importantes no cubier- 
tas por el seguro: la pérdida del “momento del 
negocio". La pérdida de semanas o meses pue- 
de ser un daño irreparable para cualquier ne- 
gocio. 


■ El agua 

Otro de los agentes importantes de ac- 
cidentes es el agua, El agua puede entrar en 
la sala de ordenadores por varios conductos. 
Los centros de proceso de datos que se en- 
cuentran en sótanos, o a nivel de calle, pue- 
den sufrir inundaciones. También pueden re- 
ventarse cañerías que vayan por el falso sue- 
lo, o en techo o paredes, El agua es una ame- 
naza para cables y en general para el hard- 


ware del ordenador, pero no constituye una 
amenaza seria para las cintas magnéticas, Se 
ha demostrado que cintas que han estado su- 
mergidas en agua varias horas han podido ser 
leídas de nuevo (y sin errores) después de un 
secado de varios días de duración. Sin embar- 
go, el agua puede constituir un peligro serio 
si a ella se suma el calor. Las cintas magnéti- 
cas se destruyen a una temperatura de 54 gra- 
dos si la humedad es superior al 85%. La tem- 
peratura de 54 grados puede parecer muy 
alta, pero puede alcanzarse, por ejemplo, en 
un coche cerrado, en verano, 


■ Sabotaje 

El peligro más temido en los centros de 
cálculo de las empresas es el sabotaje. Las em- 
presas que han abordado el problema y han 
intentado adoptar sistemas de seguridad de 
alto nivel se han encontrado con un problema 
arduo de resolver. El saboteador puede ser un 
empleado de la propia empresa o alguien aje- 
no a ella. 

Los imanes son herramientas muy utili- 
zadas; aunque las cintas estén almacenadas 
dentro de su funda de protección, una ligera 
pasada con el imán, y la información desapa- 
rece. Con este sistema se puede destruir una 
habitación llena de cintas en cuestión de mi- 
nutos, Además, también se pueden introducir 
partículas de metal, gasolina, suciedad, por el 
falso suelo, cortar las líneas de comunicación 
y eléctricas, lanzar bombas, u otros proyecti- 
les, etc. 

La seguridad de un centro de cálculo 



55 




TEMAS MONOGRAFICOS DE VANGUARDIA 


es otro problema más que debe ser evaluado 
por la dirección, considerando y calculando 
los riesgos, las pérdidas y los medios que pue- 
den ponerse en práctica razonablemente para 
prevenirlos. 

Generalmente, una mejora en la segu- 
ridad produce importantes beneficios secun- 
darios. Por ejemplo, el cambio de la metodo- 
logía aplicada a determinadas operaciones 
conduce con frecuencia a una reducción del 


índice de errores, a una mejora de la calidad, 
mejor planificación y a resultados más rápi- 
dos. 

No existe un plan idóneo o una reco- 
mendación sencilla para resolver el problema 
de la seguridad. No es una situación estática, 
y requiere un esfuerzo continuo y un estudio 
periódico de los problemas y soluciones razo- 
nables considerando pérdidas, costes, ries- 
gos, etc. 
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GLOSARIO DE TERMINOS 
UTILIZADOS EN RELACION 
CON LA SEGURIDAD 


ACK (Ver Acknowledge, message). 

Acknowledge, message. Reconocimiento 
de mensaje. Señal de control que envía el 
receptor de un mensaje para indicar que la 
transmisión se ha efectuado a satisfacción. 
Normalmente indica, además, que el recep- 
tor está dispuesto para aceptar otro mensa- 
je. 

Back-up. Copia de seguridad. Cuando un ar- 
chivo adquiere un volumen grande (o perió- 
dicamente en los procesos usuales) es útil 
obtener una copia de él, para tener la segu- 
ridad de poder reconstruirlo en caso de 
error o fallo del sistema. Las copias de se- 
guridad se suelen sacar en dispositivos por- 
tables (cintas magnéticas o discos removi- 
bles en equipos grandes, o disquetes en mi- 
croordenadores) para poder ser almacena- 
das en un lugar distinto de donde se en- 
cuentra el ordenador. 

Biométxicos, controles. Controles de segu- 
ridad basados en el examen y medición de 
las características de tamaño, forma y dis- 
posición general de ciertos elementos del 
cuerpo (mano en general, huella dactilar, 
huella de la retina, etc.). 

Bit de paridad. El último bit de un byte de 
datos (última posición —bit— en un conjun- 
to de ellas —byte—) utilizado para controlar 
la transmisión o almacenamiento de dicho 
byte de datos. Si (dependiendo del carác- 
ter, letra, número,., que se representa) el 
número de bits que tienen valor 1 es par, el 
bit de pandad se pone a 1 para que el nú- 
mero total de bits a 1 sea impar; si en el ca- 
rácter que se representa hay ya un número 


impar de 1, el bit de paridad se pone a cero. 
Todo esto en «modo de paridad impar»; la 
cuenta total debe ser par en «modo de pa- 
ridad par». Al llegar el carácter a su desti- 
no se comprueba si el bit de paridad se ade- 
cúa a la norma indicada y si no, es que ha 
habido error en la transmisión de algún(os) 
bit(s). 

Código de detección o recuperación de 
errores. Procedimiento para detectar si ha 
habido error en la transmisión de un carác- 
ter o grupo de caracteres. Suelen ser uno o 
varios, bits que toman valores de acuerdo 
con una norma prefijada y que puede ser 
controlada en destino, para el caso de con- 
trol de un carácter. El bit de paridad es un 
bit de detección de errores, aunque limita- 
do lógicamente (si se cambian por error dos 
bits —de «0» a «1» o de «1» a «0»— la cuenta 
total de paridad sale bien, aunque haya ha- 
bido error). Para el control de un grupo de 
caracteres (o todo un mensaje) se suele usar 
un carácter completo cuyos bits toman va- 
lores en función del contenido del grupo de 
caracteres cuya transmisión se quiere con- 
trolar. Si se añaden controles a un código 
(más bits o más caracteres de control que 
los imprescindibles) se puede detectar no 
sólo que se ha producido un error, smo dón- 
de y, por tanto, corregirlo. 

Control de acceso. —Físico. Cuando se im- 
pide la entrada al recinto correspondiente 
al usuario no autorizado, o se impide la co- 
nexión física (eléctrica) del equipo o su 
puesta en marcha, —Lógico. Cuando el 
equipo funciona y el usuario (incluso el no 
autorizado) puede acceder a él, pero no se 
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realizan las actividades correspondientes 
(ni proceso de datos, ni acceso a la informa- 
ción). 

Criptografía. Ciencia de la ocultación de 
mensajes. Técnicas de modificación del tex- 
to a transmitir (texto «claro») para que resul- 
te indescifrable (texto «cifrado»); natural- 
mente, en el punto de destino de la informa- 
ción hay que realizar el proceso inverso 
para volver a obtener el texto claro. 

Check digit. Dígito de control. Carácter o dí- 
gito utilizado en el control de la transmisión 
para la detección (y eventual corrección) 
de errores. Ver Código de Detección o Re- 
cuperación de Errores. 

EDP (Electronic Data Processing). Proce- 
so electrónico de datos. Los centros de EDP 
o Centros de Proceso de Datos (CPD) son los 
locales donde se ubican los ordenadores 
electrónicos, los elementos auxiliares de 
ellos (máquinas y terminales) y los disposi- 
tivos de almacenamiento de información. 

Generación. El número de generación de un 
fichero indica una secuencia en las sucesi- 
vas versiones que de ese fichero se van pro- 


duciendo, con las diferentes actualizaciones 
de datos que se introducen. 

Palabras-clave. Código de acceso lógico a 
un sistema. Las palabras clave (Keyword, en 
inglés) pueden no sólo permitir o impedir el 
acceso, sino realizar cierta selección para 
que cada usuario sólo pueda llegar a los 
procesos o informaciones para los que está 
autorizado. 

Reconocedor. Se llama así al equipo físico 
(electrónico y óptico) que analiza las imáge- 
nes (huellas dactilares, forma y tamaño de 
la mano, etc.), y las compara con las de los 
usuarios autorizados para permitir o no el 
acceso a un recinto o sistema. 

TEF. Transferencia electrónica de fon- 
dos. Se llaman así, en general, a los siste- 
mas de comunicación entre ordenadores o 
entre éstos y ciertos terminales de tipo ban- 
cario para hacer las operaciones propias de 
las instituciones financieras; pagos, cobros, 
transferencias entre cuentas, etc, 

Transacción. Se utiliza para designar un 
conjunto de datos que han de ser procesa- 
dos como una unidad. 
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Background coloar. Color de fondo de un 
gráfico o de una pantalla, en contraposición 
con el foreground colour o color del texto 
(color con el que se dibujan los gráficos pro- 
piamente dichos sobre el fondo —back- 
ground— de la pantalla). 

Background, proceso. Ejecución de pro- 
gramas de segundo nivel (prioridad baja), 
en contraposición a los programas de pri- 
mer nivel (prioridad alta), o programas del 
área foreground, que son ejecutables en 
tiempo real. 

Backspace, carácter. Configuración ASCII 
que produce los mismos efectos que la te- 
cla de backspace (abreviadamente, bs). 

Backspace, tecla. Tecla utilizada para retro- 
ceder un carácter al escribir un texto en el 
ordenador, o para que retroceda una posi- 
ción el carro de la impresora. 

Backup. (Ver Copia de seguridad.) 

Banco de datos. (Ver Base de datos,) 

Banda. A veces se designa con este anglicis- 
mo a las cintas magnéticas. 

Banda, ancha (estrecha), término utilizado 
en comunicaciones para distinguir las trans- 
misiones en función del ancho de banda, 
(Ver Ancho de banda.) 

Bandera (flag). Señal o marca que delimita 
un punto de un conjunto de datos; registro 
de estado donde se anotan un conjunto de 
situaciones de interés para el desarrollo de 
un proceso, Variable lógica que controla el 


estado de un dispositivo o la característi- 
ca (verdadera o falsa) de una situación o 
prueba. 

Barra (slash). Carácter de control de nume- 
rosas aplicaciones, En operaciones aritméti- 
cas, significa dividido por. Como carácter 
de control se utiliza a veces también la 
barra inversa. 

Barra de Sheffer. Nombre con el que se de- 
signa al operador lógico « I », equivalente al 
NAND (negación del AND = Y lógico). 

Barrido. Exploración sistemática de una ima- 
gen en la que el haz de electrones analiza 
de izquierda a derecha y de arriba abajo to- 
dos los puntos que la componen. 

Base. Valor de referencia especialmente uti- 
lizado en los sistemas de numeración como 
número con cuyas potencias se representan 
los demás números. (Ver Sistemas de nume- 
ración,) 

Base. En una potencia, número que debe ser 
multiplicado por sí mismo tantas veces 
como indique el exponente. 

Base de datos. Conjunto de datos almacena- 
dos de forma estructurada y sin redundan- 
cias, al que se puede acceder de forma rá- 
pida, clasificar, analizar, etc. Normalmente 
son enormes ficheros de datos que están 
continuamente actualizándose. 

Base de datos distribuida. Base de datos 
en la que la información está distribuida en 
varios subsistemas diferentes que general- 
mente están físicamente separados. Si los 
subsistemas son relativamente iguales, se 
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llaman homogéneos; en caso contrario, hete- 
rogéneos, 

Base de datos relacional. Base de datos al- 
macenados de forma relacionada, es decir, 
cuya estructura relacional se conforma en 
el momento en que se establecen las con- 
sultas, y no en el momento de su creación. 

Batch, proceso en. Proceso por el cual los 
programas se ejecutan de forma secuencial, 
sin que medie ninguna acción del operador. 
En contraposición al proceso en tiempo real, 
el proceso en batch realiza sus tareas en el 
orden útil sin relación alguna con las activi- 
dades externas a dicho proceso. 

Baudio. Unidad de medida para la velocidad 
de las transmisiones de datos. Indica el nú- 
mero de veces que el sistema cambia de es- 
tado, En un canal binario, equivale a un bit 
por segundo. El nombre se debe al científi- 
co J. E. Baudot. 

BCD. (Ver Notación decimal codificada en bi- 
nario.) 

Beeper. Pequeño altavoz situado en el inte- 
rior del ordenador que produce un sonido 
especial. 

Benchmark, problema. Problema que sirve 
para comparar dos o más ordenadores (soft- 
ware y hardware) o un determinado orde- 
nador respecto de las especificaciones im- 
puestas. 

Blas. (Ver Polarización.) 

Bias. Diferencia entre la media de un conjun- 
to de valores y el valor de referencia. Des- 
viación. 

Biblioteca de programas. Conjunto de pro- 
gramas y rutinas de uso común, Los elemen- 
tos que la componen no necesitan estar rela- 
cionados. 

Bicondicional. Expresión lógica que combi- 
na otras dos expresiones lógicas, de forma 
que el resultado sólo es verdad si las dos ex- 
presiones son ambas verdaderas o ambas 
falsas. 

Bidireccional. Línea de comunicaciones en 
la que los datos pueden transmitirse en 
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cualquiera de las dos direcciones (en con- 
traposición con haif dúplex). 

Biestable. Dispositivo capaz de encontrarse 
en uno de sus dos estados estables, 

Bifurcación. Conjunto de algoritmos que 
otorgan estructura arbórea a una tabla de 
decisiones, Una vez estructurada la tabla, se 
puede ya codificar y crear con ella un pro- 
grama. 

Binaria, búsqueda. Sistema de búsqueda 
que consiste en ir dividiendo el número de 
elementos del conjunto en dos partes en 
cada paso del proceso. 

Binaria, notación. Sistema de numeración 
que utiliza como base 2. 

Binario, código. Sistema de codificación 
que utiliza dos caracteres; 0 y 1 . 

Binario, dígito. Cualquiera de los caracte- 
res utilizados en la notación binaria, es de- 
cir, 0 ó 1 , Su abreviación, bit, deriva de la 
expresión inglesa binary digit. 

Binario, número. Número representado en 
notación binaria. Por ejemplo, 101 es un nú- 
mero binario equivalente al 5 decimal, y al 
V romano. 

Bit. Unidad elemental de información. Puede 
ser 1, 0, SI, NO, etc. Representa dos posibles 
estados. Es una abreviación de la palabra in- 
glesa binary digit. 

Bit de paridad. Bit que se añade (como sis- 
tema de comprobación) a un paquete de in- 
formación que se va a transmitir. La infor- 
mación está compuesta por otros bits. Por 
ejemplo, puede hacerse que el bit de pari- 
dad sea 1 si el número de bits 1 a transmitir 
es un número impar, y 0, si es par, 

Bit menos significativo. Bit situado en la 
posición menos significativa, o de menos 
peso. Generalmente es el bit situado más a 
la derecha. 

Bits por pulgada. Medida de la densidad de 
los sistemas magnéticos de grabación. Nú- 
mero de bits que pueden grabarse en una 
pulgada de soporte magnético. 
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